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FOREWORD 


This  report  documents  The  Aerospace  Corporation  effort  on 
Study  2.3,  Systems  Cost/Performance  Analysis,  performed  under  NASA 
Contract  NASW-2575  during  Fiscal  Year  1974.  The  effort  was  directed 
by  Mr.  B.  H.  Campbell.  Mr.  R.  D.  Kramer,  Marshall  Space  Flight 
Center  and  Mr.  R.  R.  Carley,  NASA  Headquarters  were  the  NASA  Study 
Directors  for  this  study.  Their  efforts  in  providing  technical  direction 
throughout  the  duration  of  the  study  are  greatly  appreciated. 

This  volume  is  one  of  three  volumes  of  the  final  report  for 
Study  2.3.  The  three  volumes  are: 


Volume  I 
Volume  II 
Appendix 
Volume  III 


Executive  Summary 

Systems  Cost/ Performance  Model 

Data  Base 

Programmer's  Manual  and  User's  Guide 


Volume  I summarizes  the  overall  report.  It  includes  the 
relationship  of  this  study  to  other  NASA  efforts,  significant  results,  study 
limitations,  and  suggested  additional  effort. 

Volume  II  provides  a detailed  description  of  the  Systems  Cost/ 
Performance  Model.  It  also  includes  the  model  checkout  and  the  results 
for  three  payload  test  cases.  The  Data  Base  is  provided  in  the  Appendix 
to  Volume  II. 

Volume  III  provides  a detailed  description  of  how  the  Systems 
Cost/Performance  Computer  Program  is  organized  and  operates.  The  t 
program  listing,-  detailed  flow  charts  and  user  restrictions  are  included. 
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1.  INTRODUCTION 


One  of  the  objectives  for  FY  1974  Study  2.  3 was  to  implement 
the  Systems  Cost/ Performance  Model  as  a digital  computer  program’.  The 
program'  would  be' used  to  perform  initial  program  planning,  cost/perfoim- 
ance  tradeoffs,  and  sensitivity  analyses.  .>  , - 

Contained  herein  is  a discussion  of  the  operating  environment 
in  which  the  program  was  written  and  checked;,  the  program  specifications 
such  as  discussions  of  logic  and  computational  flow;,  the  different  subsystem 
models  involved  in  the  design  of  the  spacecraft;  and  routines  involved  in  the 
nondesign  area  such  as  costing  and  scheduling  of  the  design.  Preliminary 
results  for  the  DSCS-II  design  are  also- included. 

Section  2 of  this  volume  covers'  the  Operating  Environment. 

This  includes  both  hardware  and  software  considerations  for  the  IBM  370/155 

4 

Section  3 contains -the  Program  Specifications.  These  include 
the  computational  flow,  a discussion  of  the  MACRO-MICRO  concept,  a de- 
tailed discussion  of  the  COMMON  structures  used  for  communication 
the  model,  and  the  Hardware  Selection  procedure. 

Section  4- covers  the  subroutines  that  select  hardware 
from  the  data  base.  These  include  Stabilization  and  Control  (Subroutine 
SANDC),  Auxiliary  "Propulsion  (Subroutine  AP),  Data  Processing  and  In- 
strumentation (Subroutine  DPI),  Communications  (Subroutine  COMM),  and 
Electrical  Power  (Subroutine  ’ EP) . A discussion  of  the  communication  within 
with  the  main  program  is  included  along  with  the  default  parameters’  set 
in  the  DATA  statements. 

Section  5 covers  the  subroutines  that  do  not  select  equipment 
but  do  size  or  calculate  information  that  is  pertinent  to  the  design. 
Subroutines  included  are:  FILTER,  which  filters  out  incompatible  designs; 
INITIL,  which  initializes  certain  default  numbers  that  are  needed  early  in 
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the  model  but  are  not  computed  until  later  in  the  model;  READDB,  which 
reads  the  data  base  for  any  one  subsystem  at  a time;  SAVE,  which  saves 
certain  matrices  to  be  used  by  later  subroutines;  VESIZE,  the  vehicle 
sizing  routine  that  computes  weights',  lengths,  and  inertias  for  the  design; 
STRUCT,  that  computes  the  data  needed  to  size  the  structure;  RELY,  which 
compute s:  the  reliability  for  the  spacecraft;  THRML,  which  computes  the 
thermal  requirements  for  the  spacecraft;  COSTS,  which- calculates  the 
various  costs  involved  in  building  and  integrating  the  entire  spacecraft 
system;  SKED,  which  computes  the  schedule  for  the  spacecraft  from  initial 
design  phase  to  the  launch-  phase;  and  PRNT,  which  outputs  the  final  design 
attributes. 

Section  6 contains  a discussion  of  the  data  base  format  and 
tape  requirements.  Also  discussed  is  the  PRESORT  routine  which  allows 
one  to  presort  the  data  base  into  a different  order 'based  on  cost,  weight, 
reliability,  etc. 

Section  T summarizes  the  restrictions  and  limitations  estab- 
lished within  the  program. 

Section  8 contains  a discussion  of  the  actual  sample  case  used 
to  check  the  program.  Also  included  is  the  input  section  including  all 
default  values  and  changes  pertaining  to  the  sample  case.  The  results  of  the 
test  case  ate  discussed' here  also..  . 

Sections'  9 'and  TO  contain  the  source  code  listing  and  the  detailed 
flow  charts,  respectively. 
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2.  OPERATING  ENVIRONMENT 


Section  2 contains  a description  of  the  operating  environment 
within  which  the  program  was  coded  and  checked.  Paragraph  2.  1 summarize: 


the  hardware  involved  and  Paragraph  2.2  summarizes- the  software  involved. 

2.  1 

HARDWARE 

2.  1.  1 

Computer 

IBM  370  - 155 

[V 
>— > 
IV 

Main  Memory  Utilization 

270K  Bytes  - 

to  compile 

162K  Bytes  - 

to  link  edit 

108K  Bytes  - 

to  execute 

2.  1.  3 

Magnetic  Tapes 

Required  only  for  presort  (see  Paragraph  6.2) 

2.  1.4 

Card  Punch 

Not  required 

2.1.5  Plotter 

Not  required 

2.1.6  Disk' 


Unit  1 - requires  about  five  tracks  on  an  IBM  3330 
{cataloged  space) 

NOTE:  A tape  may  be  substituted. 

2. 2 SOFTWARE 

2.2.1-  Operating  System 

HASP*- OS  Release  21,7 
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2.2.2  Programming  Language 

FORT  RAJS 

2^2.3  Type  'of  Run 

. BATCH 

2'.' .2 4 Library  Subroutines" 

SORT 

SIN 

COS 

TAN 

ATAN 

ARSIN  . 

EXP. 

, . \ 

FLOAT 

INT 

ALOG 
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3.  PROGRAM  SPECIFICATIONS 


Paragraph  3.  1 contains  a description  of  the  over-all  program 
flow  and  a discussion  of  the  MACRO-MICRO  concept.  Paragraph  3.  2 contains 
a discussion  of  the  common  structures.  Paragraph  3.3  contains  a discussion 
of  the  hardware  selection  procedure.  Detailed  discussions  of  all  subroutines 
can  be  found  in  Sections  4 and  5. 

3.  1 COMPUTATIONAL  FLOW  CHART 

In  general,  it  can  be  said  that  the  program  has  an  outer  loop  on 
configurations  and  an  inner  loop  on  iterations.  The  inner  loop  on  iterations 
includes  the  calling  of  all  subsystem  subroutines  and  for  ITER  = 0 the  calling 
of  the  reliability  subroutine.  For  ITER  = 1 (second  pass)  reliability  is  by- 
passed. The  structures,  thermal,  cost,  and  print  subroutines  are  called 
once  per  outer  loop  on  configurations.  A general  flowchart  is  shown  in 
Figure  3-1. 

3.1.1  MACRO -MICRO 

A prerequisite  to  the  understanding  of  the  MACRO-MICRO  con- 
cept is  an  understanding  of  "configuration".  A set  of  rules  for  selecting  - 
equipments  is  associated  with  each  subsystem.  Which  set  of  rules  is  to  be 
used  at  any  moment  in  time  is  determined  by  NCONF  (configuration  number) 
for  that  subsystem.  For  example,  if  NCONF(l)  = 5,  a star  sensor  will  be 
selected  by  reference  to  the  appropriate  equations.  However,  if  'NCONF(l)  = 

1,  a star  sensor  will  never  be  selected.  Thus,  the  configuration  numbers 
-determine  a subset  of  the  sets  of  equipments,  and  only  this  subset  is  consid- 
ered for  the  configuration  design. 

A MACRO  search  is  a method  for  testing  all  possible  combina- 
tions of  configuration  numbers  (one  per  subsystem)  and  determining  within 
this  subset  of  equipments  and  within  the  subset  of  selection  procedures  thd 
first  acceptable  equipments  for  each.  Some  combinations  of  configurations 


3-1 


Figure  3-1.  Hardware  Selection  Procedure  in  Kth  Subsystem 
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Figure  3-1.  Hardware  Selection  Procedure  in  Kth.  Subsystem  (Continued) 
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Figure  3-1.  Hardware  Selection  Procedure  in  Kth  Subsystem  (Continued) 
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Figure  3-1.  Hardware'SelectioriProcedure  in  'Kth  Subsystem  (Continued) 
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Figure  3- 


1.  Hardware  Selection  Procedure  in  Kth  Subsystem  (Continued) 
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Figure  3-1.  Hardware  Selection  Procedure  in  Kth  Subsystem  {Continued) 
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are  never  acceptable,  and  some  are  ruled  out  by  mission  requirements; 
but  a MACRO  search  will,  in  general,  produce  many  acceptable,  designs. 

In  a MICRO  mode  all  configuration  numbers  except  the  one 
being  "MICROed"  are  fixed.  Care  must  be  taken  that  these  numbers  are 
compatible.  For  example,  VESIZE  should  not  be  set  to  configuration  2 
when  SANDC  is  set  at  2;  that  is,  a box  shape  for  the  equipment  bay  is  incom- 
patible with  dual  spin.  Within  the  subsystem  being  "MICROed",  all  con- 
figurations are  checked  and  all  possible  combinations  of  equipments  within 
the  subset  determined  by  configuration  are  checked.  Within  a configuration 

then,  it  is  essentially  the  stopping  point  which  determines  the  difference 
* 

between  a MACRO  and  a MICRO.  A MACRO  selects  the  first  acceptable 
-equipment  in  each  category.  The  MICRO  selects  all  combinations  of  accept- 
able equipments. 

3.2  COMMON  REGIONS 

The  main  COMMON  regions  consist  of  user  COMMONS,  DBCOM, 
BTWN,  CHOSE,  and  PRTCOM. 

The  various  user  COMMONS  (USER- 1,  USER-2,  USER-3,  . etc. ) 
are  for  storage  of  user  specified  values.  These  values  are  preset  to  default 
values  by  a block  data  routine  but  are  overwritten  by  values  specified  in 
the  namelist  form  by  the  user.  For  a complete  description  of  the  contents 
of  the  namelist  variables  in  each  user's  COMMON  see  Paragraph  8. 1.',  The 
COMMON  and  NAMELIST. names  with  corresponding  variables  are  as  follows: 


Named  COMMON 
’ Block  Name 

NAMELIST 

Name 

Subsystem 

USER-1 

USRSC 

Stabilization  and  control 

USER- 2 

USRAP 

Auxiliary  propulsion 

USER-  3 

USRDP 

Data  processing  and 
instrumentation 

USER- 4 

USRCM 

Communications 

USER- 5 

USREP 

Electrical  power 

USER- 6 

USRVS 

Vehicle  sizing 

USER- 7 

USRTH 

Thermal 
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Named ’COMMON  NAMELIST 

. Block  Name  Name  ■ Subsystem 

USER- 8 USRSK  Schedule  Sr 

USER- 9 USRST  Structures 

USER -I  MODE  General 

USER-R  USRRE  Reliability  - 

USER-C  USRCS  Cost 

DBCOM  acts  as  storage  for  blocks  of  the  data  base.  All  data 
base  values  for  one  of  the  hardware,  selection  subroutines  (i.e.,  all  55 
attributes  associated  with  all  equipments  relevant  to  that  subsystem)  are 
read  at  one  time.  These  values  are  stored  in  matrix  DATAB,  (55,  90).  In 
addition,  the  COMMON  contains  IDB(30)  (see  Paragraph -3.  3)  which  is  filled 
by  the  read  routine.  IDB (I). contains  the  last  column  number  for  the  Ith 
equipment  of  the  active  subsystem. 

The  named  COMMON  block  CHOSE  contains  values  pertaining  to 
equipment  already  chosen.  ICHOSE(60)  and  NCHOSE(60)  are  concatenations 
of  the  separate  ICHOSE(I)  and  NCHOSE(I)  of  each  subsystem  which  selects 
hardware  as  discussed  in  Paragraph  3.  3.  COST{5,  60)  is  a matrix  formed 
by  selecting  the  following  rows  from  the  data  base  for  each  equipment 
selected: 


Matrix 

Row  of 
DATAB 

Description 

COST  (1,  I) 

46 

Design  engineering  cost 

COST  (2,  I) 

47 

Test  and  evaluation  cost 

COST.  (3, 1) 

48 

Unit  production  cost 

COST  (4,  I) 

49 

Reference  quantity 

COST  (5, 1) 

50' 

Factor 

SKD(7,-  -60)  is  a matrix  formed  by  selecting  the  following  rows  from  the  data 
base  for  each  equipment  selected: 
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Matrix 

Row  of 
DATAB 

Description 

SKD  (1,  I) 

46 

Design  engineering  cost 

SKD  (2, 1) 

47 

Test  and  evaluation  cost 

SKD  (3, 1) 

51 

Development  constant 

SKD  (4,  I) 

52 

Development  variable 

SKD  (5, 1) 

53 

Qualification  constant 

SKD  (6, 1) 

54 

Qualification  variable 

SKD  (7, 1) 

55 

State-of-the-art  factor 

REL(6,  60)  is  a matrix  formed  by  selecting  the  following  rows  from  the  data 

base  for  each  equipment  selected: 

Matrix 

Row  of 
DATAB 

Description 

RED  (1, 1) 

23 

Weight 

REL  (2, 1) 

41 

Failure  model 

REE  (3, 1) 

42 

\or  (j, 

REL  (4, 1) 

43 

o 

REL  (5,  I) 

44 

q 

REL  (6, 1) 

45 

Maximum  redundancy 

THM(4,  60)  is  a matrix  formed  by  selecting  the  following  rows  from  the 

data  base  for  each  equipment  selected: 

Matrix 

Row  of 
DATAB 

Description 

THM  (1,1) 

17 

Maximum  power 

THM  (2,  I) 

18 

Minimum  power 

THM  (3, 1) 

27 

Maximum  temperature 

THM  (4, 1) 

28 

Minimum  temperature 

DPIA(11,  60)  is  a matrix  formed  by  selecting 
data  base  for  each  equipment  selected: 

the  following  rows  from  the 
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Matrix  ! 

Row  of 
DAT'AB 

Description 

DPIA  (1,1) ‘ 

30  ' 

Number  power  commands 

DPIA  (2, 1)  , 

31 

Number  other  commands 

DPIA..  (3, 1) 

32 

Number  time  tags 

•DPIA  (4,  I)  ' : 

33  ■ 

Numb.e-r'-high  rate  analog  points 

DPIA  (5*  I) 

34 

Number  high  rate  digital  points 

DPIA  (6, 1) 

35 

High  sample  rate  * 

DPIA  (7;  I) 

36 

Word  length 

DPIA  (8, 1)'  ' 

37 

Number  low  rate  analog 'points 

DPIA-.(9, 1) 

38 

Number  low  rate  digital  points 

DPIA  (10, 1) 

39 

Low  sample  rate 

DPIA  (11, 1) 

■40 

Word  length 

These  matrices  are'needed  by  the  subroutines  that  have  similar  names.  For 
example,  COST  is 'used- by  COSTS,  REL:is  used  by  RELY,  SKD  is ’used  by 
SEED,  THM  is  used- by  THR-ML,  and  DPIA  is  used  by  DPI 

PRTCOM  is  used  to  pass  values  to  the  print  subroutine  which 
are  not  needed  (except  for  output)  outside  of  a given  routine.  A description 
of  the  variables  in  this  COMMON  block  is  given  below: 


Name 

From 

Units 

Description 

ACCRCY 

SANDG 

deg 

S&C  accuracy 

CISTAR 

EP 

amp-hr 

Battery  capacity 

IREL 

RELY 

— 

0 means  single  string 

1 means  dual  string  . 

MMDOLD 

RELY 

mo 

Mean  mission  duration 

TRUNC 

RELY 

t 

mo 

Reliability  truncation-time 

ITRUNC 

RELY 

— 

Index  for  reliability 

DE 

COST 

$ 

Design  engineering  cost 

TE 

COST 

$ 

Test  and  evaluation  cost  t 

TOOLR' 

COST 

$ 

DDT&E  tooling  and  test 
equipment  cost  . . 

OCR 

COST 

$ 

DDT&E  quality  control  cost 
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Name 

From 

Units 

SEIR 

GOST 

$ 

PMR 

COST 

$ 

PE 

COST  ' 

$ 

PU 

COST 

$ 

TOOLU 

COST  • 

$ 

QCP 

.COST 

$ 

SEIP 

COST 

$ 

PMP 

COST 

$ 

SATR 

COST 

$ 

SATINV 

COST 

$ 

MER 

COST 

$ 

MEINV 

COST 

$ 

PAYR 

COST 

$ 

PAYINV 

cost’ 

$ 

PAYQUL 

COST 

$ 

GSE 

COST 

$ 

XLTOT 

COST 

$ 

CTOT 

COST 

$ 

FEER 

COST 

$ 

FEEINV 

COST 

$ 

DDTE 

COST 

$ 

XVEST 

COST 

$ 

OPS 

COST 

$ 

SKTAU(l) 

SKED 

mo 

SKTAU(2) 

SKED 

mo 

Description. 

DDT&E  systems  engineering 
and  integration  cost 

DDT&E  program  management 
cost 

Unit  engineering  cost 

Unit  production  cost 

Investment  tooling  and 
test  equipment  cost 

Investment  quality  control  cost 

Investment  systems  engineering 
and  integration  cost 

Investment  program  manage- 
ment cost 

DDT&E  spacecraft  cost 

Spacecraft  investment  cost 

DDT&E  mission  equipment  cost 

Mission  equipment  investment 
cost  , 

DDT&E  total  payload  cost 
Total  payload  investment  cost 
DDT&E  qual.  units  cost 
DDT&E  GSE 

Launch  support  operations  cost 

Flight  operations  cost 

DDT&E  contractor  fee 

Investment  contractor  fee 

DDT&E  program  total 

Investment  program  total 

Operations  program  total 

Design  and  component  devel- 
opment time 

Component  qualification  time 
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Name 


F rom 


Units 


SKTAU(3)' 

SKED 

mo 

SKTAU(4)  • • 

SKED'  " 

mo 

SKTAU(5) 

‘ SKED  ' 

mo' 

ROLD(60).,  , 

RELY  . . 

TTT 

••  STRUCT 

inv 

AN 

• STRUCT 

— 

TS 

STRUCT 

in. 

BS 

' STRUCT 

in. 

AM 

STRUCT 

— 

TF 

' STRUCT 

in. 

BF 

STRUCT 

in. 

TC 

STRUCT 

in. 

TA 

STRUCT 

in. 

TB  ' 7 * 

STRUCT  ‘ 

in. 

TOT OPS 

DPI 

ips 

Description 

Subsystem  development  time 
Subsystem  qualification  time 

' ' . r * ■'  . 

Subsystem  development  and 
* ’ flight  readiness  time 

Reliability  of  each  module 

Skinthickness  “ 

Number  of  stringers 

Stringer  thickness 

Stringer  height 

Number  of  frames 

Frame  thickness 

F rame  height 

End  cover  thickness  forward 
End  cover  thickness  center 
End  cover  thickness  aft 
Computer  operations  rate 


••  Communication  of  all  design  variables  between  subsystems  is 
accomplished  via  COMMON  block  BTWN.  A description  of  all  variables 
contained  in  BTWN  is  given  below:  


Name 

From 

To 

Units 

Description 

WT 

ALL 

VS 

lb  - . 

Accumulated  equipment  wt 

VOL 

ALL 

. 

vs 

ft3- 

Accumulated  volume 

DT 

INITIL, 

VS 

SANDC 

ft  ■ 

Dist.  from  c.g.  to  engine 

D 

INITIL, 

VS 

. SANDC 

ft  .. 

- Vehicle  diameter 

DX 

INITIL, 

vs 

SANDC 

ft 

DY 

INtTIL, 

vs  _ 

SANDC 

ft 

Gas  jet  lever  arm 
{roll,  pitch,  and  yaw) 

DZ 

INITIL, 

vs 

SANDC 

ft 

XJ 

INITIL, 

vs 

SANDC 

s.lug- ft2 

YJ 

INITIL, 

vs 

SANDC 

.slug- ft2 
2 

Vehicle  inertia 
(roll,  pitch,  yaw) 

Z J 

INITIL, 

vs 

SANDC 

slug-ft 
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Name 

From 

To 

Units 

Description 

RJ 

INITIL,  VS 

SANDC 

slug- ft2 

Rotor -spin  axis  inertia 

FF 

SANDC 

AUXPRO 

lb 

Attitude  and  control  thrust 

TI 

SANDC 

AUXPRO 

lb- sec 

Total  impulse 

PL 

ALL 

EP 

watts 

Average  power 

PLMIN 

ALL 

EP 

watts  - 

•Minimum  power 

LMBDD 

EP 

RELY 

Depth  of  discharge  of 
battery  capacity 

AREA 

EP 

i 

VS 

ft2 

Solar  array  area 

SATLG 

VS 

THERMAL 

ft 

Vehicle  length 

WATE 

EP 

VS,  RELY 

lb 

Solar  array  weight 

NC 

EP 

RELY 

Number  of  cells 

ACSWP 

AUXPRO 

VS  ‘ 

lb 

Propellant  weight 

' HARNWT 

VS 

COSTS 

lb 

Harness  weight  (wiring) 

THCMWT 

VS 

COSTS 

lb 

Thermal  control  weight 

CONVWT 

SANDC  & 
COMM 

COSTS 

lb 

Converters  weight 

TNKWT 

AUXPRO 

-COSTS 

lb 

Propellant  feed  systems  weight 

PASSTR 

VS 

COSTS 

lb 

Equivalent  structures  weight 

SATTWT 

VS 

PRINT 

lb 

Vehicle  weight. 

TPRIM 

REL 

SANDC 

mo 

Mission  length 

IBTLOC 

EP 

THERMAL 

Battery  location  (column  No.) 

RADA 

THERMAL 

PRINT 

ft2 

Radiator  area 

RADAB 

THERMAL 

PRINT 

ft2 

Battery  radiator  area 

RAT 

THERMAL 

PRINT 

ft2 

Total  radiator  area 

HTRPWR 

THERMAL 

PRINT 

Btu/hr 

Heater  power 

HTRPRB 

THERMAL 

PRINT 

Btu/hr 

Battery  heater  power 

HPT 

THERMAL 

PRINT 

Btu/hr 

Total  heater  power 

HTPIPE 

THERMAL 

PRINT 

Btu/hr 

Heat  pipe 

VCHP 

THERMAL 

PRINT 

Btu/hr 

Variable  conductance  heat  pipe 

HTPT 

THERMAL 

PRINT 

Btu/hr 

Total  heat  pipe 
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Name 

From 

To 

Units 

Description 

FC 

SANDC 

REE 

hr"1 

APS  thruster- cycle  rate 

XNZERO 

EP  • 

- RELY 

rad/sec  ■ 

Orbital’  mean  motion 

COMRT 

COMM 

DPI 

ips 

Command’  rate  ‘ 

ACSSN 

SANDC 

REL, 

Number  of'sensors 

BITRAT 

DPI 

COMM: 

bps 

Bit  rate  (mission  equipment 
' and  housekeeping) 

3.  3 HARDWARE  SELECTION  PROCEDURE 


This  section  describes  the  hardware  selection  procedure,  the 
method  of  communication  between  the  MAIN  program  and  the  hardware 
selection  subroutines,  and  the  general  procedure  used  in  systematically 
checking  all  hardware  parameters  until  a component  is  found  that  meets 
the  specifications.  Discussions  as  to  which  hardware  is  selected  can  be 
found  in  the  appropriate  subsystem  subroutine  sections  (see  Section  4). 

There  are  five  subroutines  in  which  hardware  is  selected:  SANDC  (Stabiliza- 
tion and  Control),  AUXPRO  (Auxiliary  Propulsion),  DPI  (Data  Processing 
and  Instrumentation),  COMM  (Communications),  and  EP  (Electrical  Power). 
The  procedures  described  in  Ta/ble  3-1  and  Figures  3-2  through  3-4  are 
applicable  to  all  of  these  subroutines.  ... 
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Table  3-1.  Hardware  Selection  Procedure  in  Kth  Subsystem 


Calling  Sequence 

SUBROUTINE  SSK  {IPIC,  IERR,  ITER,  NCONF,  ICHOSE,  NCHOSE) 


= hardware  index  indicating  data 
base  column 

NSIZE  = maximum  number  of 
equipments  sized  for  any  configu- 
ration 

= message  flag 

0 means  no  message 

1 means  first  message  only 
10  means  second  message  only 


111  means  first,  second  and  third 
messages  are  applicable 

= iteration  flag  (0  means  first'.time 
through) 

= system  configuration  indices 

= I.  D.  of  hardware  chosen 

NEQUIP  = maximum  equipments  (in 
general,  more  than  one  manufacturer 
per  equipment)  in  any  configuration 

= number  of  identical  pieces  of 
hardware  required 

Additional  Variables  Used  in  Selection  Procedure 


7. 

DATAB(NR,  NC) 

= data  base  for  subsystem 

NR  = total  equipment  attributes 
NC  = total  number  of  individual 
pieces  of  hardware 

8. 

IDB(NTOTE)* 

= last  hardware  column  index  for  all 

equipment 

NTOTL  = tiotal  number  of  equipments 

in  data  base  for  this  subsystem  (all 
configurations) 

• Assumptions  in  Example  Routine  Described  Below 

1.  Two  equipments  require  sizing  in  the  first  configuration. 


Definition  of  Variable  Names 
1.  IPIC  (NSIZE).. 

■ 2.  IERR. 


3.  ITER 

4.  NCONF(6) 

5.  ICHOSE  (NEQUIP)* 

6.  NCHOSE(NEQUIP) 


* See  Figure  3-2  for  further  explanation 
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FIRST  ROW  CONTAINS 
HARDWARE  I.  D. 

* CONFIGURATION  1- CONFIGURATION  2 ► 


EQ1  EQ2  EQ3  EQ4  EQ5  EQ6 


. Explanation  of  Arrays:  IDB  and  ICHOSE 


Figure  3-2 


ICHf)SE(l)  = 0 
NCH0SE(l)  = 0 
I = h NEQUIP 
1ERR  = 0 

SELECT  HARDWARE  NOT  SIZED 

i.e.,  ICHOSE(Nt)  = DATAB(1,  N2) 
FOR  APPROPRIATE  N1  AND  N2 
SET  NONZERO  VALUES  OF  NCH05E 


Figure  3-3,  Hardware  Selection  Flow  Chart 
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J1E  = IDB(M) 
J2E  = JDB(MM) 


ICHOSE(L) 

lCHOSE{LL) 

RETURN 


I 

SEE  IF  HARDWARE  J1  AND  J2  ARE 
ACCEPTABLE 


IPJC(l)  = J1 
I PIC  (2)  = J2 
ICH0SE(L)  = 

DAT  AB(1 , J1 ) 
ICH0SE(LL)  = 
DATAB(1,J2) 
NCH0SE|L)  = 
NCHOSE(LL)  = _ 
RETURN 


ICHOSE(L)  1 (Qoyjj  not  fjntj  occeptable 
ICHOSE(LL)  = -1  equipment) 

RETURN 


Figure  3-4,  Main  Program  Logic 
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£AGE  intentionally  BLANK 


4.  SUBROUTINES  WHICH  SELECT  HARDWARE 


4.  1 


SUBROUTINE  SANDG  (IPIC,  IERR-,  ITER,  NCONF,  ICHOSE, 
N CHOSE)  ' “ T 


4.  1.  1 


Purpose  of  Subroutine 


The  Stabilization  and  Control  Subsystem  stabilizes  a spacecraft 
to  a desired  accuracy  about  a tracking  line  from  a reference  on  the  vehicle 
to  an  external  reference.  The  external  reference  may  be  the  local  vertical 
of  a planet,  the  sun,  or  a more  distant  star;  an  inertial  reference;  or  the 
line  of  sight  to  a natural  phenomenon  like  a gravity  gradient  or  the  lines  of 
the  earth's  magnetic  field.  In  many  cases,  a platform  free  to  rotate  -with 
respect  to  the  main  structure  of  the  vehicle  must  also  be  aligned  with  an 
external  reference.  The  necessary  accuracy  of  attitude  stabilization  depends, 
of  course,  on  the  mission  of  the  vehicle.  j 

i 

The  principal  calculations,  other  than  those  necessary  to  select 
stabilization  and  control  equipment,  are  contained  iin,  equations  for  thrust 
and  total  impulse.  These  are  necessary  for  the  correct  sizing  of  equipment 
in  auxiliary  propulsion. 


Those  equipments  which  are  selected  on  the  basis  of  data  base 
values,  rather  than  merely  by  equipment  type,  vary  widely  from  configu- 
ration to  configuration.  Sensor  selection  is  based !on  factors  such  as  dead- 
band and  pointing  errors  (with  respect  to  various  axes).  The  equations  for 
sensor  selection  tend  to  be  quite  complicated  and  involve  user  input, 
numbers  from  other  subsystems,  and  values' from  the  data  base  for  many 
of  the  selected  equipments.  As  an  example,  star  sensors  are  selected 
on  the  basis  of  type  (mappers  or  trackers),  rate  error,  pointing  error, 
sensitivity,  and  compatibility  with  the  selected  gyro  and  control  moment 
gyros  (CMGs).  CMGs  are  selected  on  the  basis  of  momentum,  gimbal 
rate,  andit^nrque . Reaction  (or  momentum)  wheels  are- selected  on  the  basis 
of  the  anguMxmomentum  required. 


The  five  configurations  and  their  equipments  arc  as  follows 

a.  Dual  Spin 

1.  Despin  mechanical  and  electrical  assembly 

2.  Valve  driver  assembly 

3.  Sun  sensor 

4.  Nutation  damper 

5.  ■ Gimbal  electronics 

6.  Control  timing  assembly 

7.  Gimbal  drive  assembly 

8.  Nonscanning  earth  sensor 

9.  Power  converter 

b.  Yaw  Spin 

1.  Sun  sensor 

2.  ACS  electronics 

3.  Rate  gyro 

4.  Horizon  sensor 

5.  Reaction  wheel 

6.  Power  converter 

7.  Valve  driver 

c.  Three-Axis  Mass  Expulsion 


1.  Attitude  reference  electronics 

2.  Valve  driver  ; 

3.  Power  converter 

4.  Rate  integrating  gyro 

5.  Scanning  earth  sensor 

d.  Momentum  Exchange 

1.  Electronics  processor 

2.  Valve  driver 

3.  Horizon  sensor  or  sun  sensor 

4.  Control  moment  gyros 

5.  Rate  integrating  gyros 

6.  Star  sensor 

e.  Pitch  Momentum  Bias 


1.  Valve  driver 

2.  Electronic  error  processor 

3.  Horizon  sensor 

4.  Momentum  wheel 
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4.  1.  2 


Communication  with  Main  Program 


The  variables  in  the  calling  sequence  are  discussed  in  Para'graph 
3.3.  . # . 

User  inputs  are  communicated  by  the  COMMON  areas  USER-1  and 
USER- 1.  These  are  discussed  in  Paragraph  8.  1 (see  NAMELISTs  USRSC  and 
USRI).  Variables  are  passed  to  and  received  from  other  subroutines  through 
the  COMMON  area  BTWN,  which  is  discussed  in  Paragraph  3.2.  The  fourth 
COMMON  area  in  this  subroutine  is  DBCOM,  which  contains  all  necessary  data 
base  values  and  an  indexing  scheme  to  reference  the  values.  DBCOM  is  also 
discussed  in  Paragraph  3.  2. 

Variables  Specified  in  DATA  Statements 

Seven  variables  appear  in  DATA  statements.  Six  of  these  (XMD, 
YMD,  ZMD,  XMD2,  YMD2,  and  ZMD2)  are  approximations  for  external  tor- 
ques (ft-lb).  The  other,  DI,  is  a minimum  gas  jet  on-time  in  seconds. 

4.  1.4  Other  Subroutines  Called' 

- None 

4.2  SUBROUTINE  AUXPRO  (IPIC,  IERR,  ITER,  NCONF,  ICHOSE, 

NCHOSE)  “ 

4.  2.  1 Purpose  of  Subroutine 

The  auxiliary  propulsion  subroutine  selects  hardware  which  is 
required  to  provide  attitude  control  forces  and  stationkeeping  or  maneuvering 
forces.  Three  configurations  are  considered. in  the  subroutine.  These  config- 
urations are  characterized  by  the  nature  of  the  propellant  under  investigation: 
cold  gas,  monopropellant,  bipropellant. 

All  thrusters,  isolation  valves,  filters,  regulators,  and  tanks  are 
selected  by  comparing  appropriate  attributes  listed  in  the  data  base  with 
satellite  performance  requirements  determined  by  the  model.  Thrusters  are 
selected  on  the  basis  of  thrust  level,  isolation  valves  on  the  basis  of  effective 
flow  ar.ea,  filters  on  the  basis  of  flow  impedance,  regulators-  on  the  basis  of 

effective  flow  area  and  pressure  operating  range,  and  tanks  on  the  basis  of 
volume  and  pressure. 
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The  model  does  not  include  selection  criteria  for  the  fill  and 

vent  valves,  fill  and  drain  valves,  or  the  relief  valves.  The  first  valves 

in  the  appropriate  equipment  slots  in  the  data  base  are  simply  called  up. 

The 

sequence  in  which  equipments  are  selected  in  each  confign 

ration  are 

: given  below: 

a. 

Cold  Gas  [NCONF(2)  = 1] 

1. 

Attitude  and  control  thrusters 

2. 

Translational  thrusters 

3. 

Pneumatic  isolation  valves 

4. 

Pneumatic  filters 

5. 

Pneumatic  regulator 

6. 

Pneumatic  tank 

7. 

Fill  and  vent  valve 

8. 

Relief  valve 

b. 

Monopropellant  [NCONF{2)  = 2] 

1. 

Attitude  and  control  thrusters 

2. 

Translational  thrusters 

3. 

Fuel  circuit  isolation  valves 

4. 

Fuel  circuit  filters 

5. 

Pneumatic  regulator 

6. 

Pneumatic  isolation  valve 

7. 

Fuel  tank 

8. 

Pneumatic  tank 

9. 

Fill  and  drain  valve 

10. 

Fill  and  vent  valve 

11. 

Relief  valve 

c. 

Bipropellant  [NCONF{2)  = 3] 

1. 

Attitude  and  control  thrusters 

2. 

Translational  thrusters 

3. 

Fuel  circuit  isolation  valves 

4. 

Oxidizer  circuit  isolation  valves 

5. 

Fuel  circuit  filters 

6. 

Oxidizer  circuit  filters 

7. 

Pneumatic  regulator 

8. 

Pneumatic  isolation  valve 

9. 

Fuel  tank 

10. 

Oxidizer  tank 

11. 

Pneumatic  tank 

12. 

Fill  and  vent  valve 

13. 

Fill  and  drain  valves 

14. 

Relief  valve 
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Plumbing  and  connector  weight-in  each  configuration  .is  estimated 
from  the  combined  tank  weight.  . 

4*2.2  • Communication  with  Main  Program  ■' 

The  variables  listed  in  the  calling  sequence  are  common  to  all 
subroutines  which  select  hardware  and  are  discussed  in  Paragraph  3.3. 

In  addition  to  the  calling  sequence, ■ subroutine  AUXP.RO  com- 
municates with  the  main  program  via  three  COMMON  blocks:  USER- 2, 
BTWN,  and  DBCOM.  Variables  coming  through  USER- 2 are  user  inputs 
discussed  in  Paragraph  8.  1 (see  NAMELISTs  USRAP  and  USRSC).  The 
variables  in  BTWN  and  DBCOM  are  discussed  in  Paragraph  3.2. 

4*2.3  Variables  Specified  in  DATA  Statements 

DATA  XMR/1.  5/ 

XMR  = mixing  ratio  for  bipropellant  configuration  , 

4.2.4  Other  Sub ro untines  Called 

None 


4*  3 SUBROUTINE  DPI  (IPIC,  IERR,  -ITER,'  NCONF,  ICHOSE, 

nchose;  now-at) 

4.  3.  1 Purpose  of  Subroutine 

The  data  processing  and  instrumentation  subroutine  selects 
hardware  which  is  required  for  mission  equipment  data  processing,  command 
decoding,  and  monitoring  purposes.  Two  configurations  are  considered  in 
the  subroutine:  general  purpose  processing  and  special  purpose  processing. 
In  the  general  purpose  mode,  a computer  on  board  the  satellite  performs 
all  data  processing  tasks  unless  there  is  a requirement  for  separate  proc- 
essing of  telemetry  data.  In  this  case,  a separate  digital  telemetry  unit 
(DTU)  is  used  to  process  the  housekeeping  data.  In  the  special  purpose  mode, 
all  processing  is  performed  by  DTUs.  If  the  communications  configuration 
involves  uplink  plus  downlink,  unified  link-common  antenna,  or  unified 
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link- separate  antennas,  a single  DTU  performs  all  mission  equipment  and 
housekeeping  data  processing.  If  the  communications  configuration  involves 
unified  link- common  antenna  plus  downlink,  or  unified-  linkr  separate  antennas 
plus  downlink,  one  DTU  is  used  for  mission  equipment  data  processing  and 
one  DTU  is  used  for  housekeeping- data  processing. 

The  general  purpose  computer  is  selected  on  the  basis  of  total 
required  instructions  (or  operations)  per  second.  The  DTUs  are  not  sized. 
The  first  DTUs  in  the  appropriate  equipment  slot  in  the  data  base  are  simply 
called  up. 

The  following  quantities  are  computed  in  the  sequence  indicated: 

a.  Requirement  for  a digital  multiplexer 

b.  Number  of  mainframe  words 

c.  Word  length 

d.  Bit  rate 

e.  Number  of  words  per  subframe 

f.  Number  of  subframes 

The  above  quantities  are  computed  regardless  of  the  configuration  in  sub^ 
routine  DPI.  Depending  on  the  configuration,  the  following  operations  are 
performed  in  the  sequence  indicated: 

a.  General  Purpose  Processing 

1.  If  telemetry  data  is  processed  separately,  select  one 
DTU.  Otherwise,  compute  telemetry  operations  per 
second. 

2.  Compute  attitude  control,  command,  and  total  operations 
per  second. 

3.  Select  general  purpose  computer. 

b.  Special  Purpose  Processing 

1.  Depending  on  the  communications  configuration  (as 
discussed  previously),  a DTU  may  or  may  not  be  selected 
for  mission  equipment  data  processing. 

2.  Select  DTU  for  housekeeping  data  processing. 
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4.  3.2 


Communication  with  Main  Program 

The  variables-  listed  in  the  calling  sequence  with  the  exception  ' 
of  NOWAT,-  are  common  to  all  subroutines  which  select  hardware  and  are 
discussed  in  Paragraph -3.  3.  NOWAT  is  one  greater'Than  the  number  of 
entries  in  the  ARRAY  table,  (see  DPIA  Matrix  "in  Paragraph  3.‘2). 

In  addition  to  the  calling  sequence,  subroutine  DPI  communicates 
with  the  main  program  via  five  COMMON  blocks:  CHOSE,  DPITAB,  BTWN, 
DBCOM,  and  USER-3.  Variable’s  coming  through  USER- 3 are  user  inputs, 
described  in  Paragraph  8.  1 (see  NAMELIST  USRDP).'  The  variables  in  BTWN, 
CHOSE,  and  DBCOM  are  discussed  in  Paragraph  3.2.  The  variables  in 
DPITAB  are' listed  below: 


4.  3.  3 


where: 


HRST 

Sample  rate  - high  (sec 

TLPTH 

Number  of  analog  and  digital  points  - high  rate 

GRANH 

Word  length.  - high  rate  (bits) 

XSRT 

Sample  rate  - low  (sec"^) 

TLPTL 

Number  of  analog  and  digital  points  - low  rate 

GRANL  = 

Wo.rd  length  - low  rate  (bits) 

Variables  Specified  in  DATA  Statements 

DATA  ACSRT,  ACSOP,  COMOP,  OPREQ/IO.,  50.,  6. , 4.  / 


ACSRT  = 
ACSOP 
COMOP  = 
OPREQ  ' = 


ACS  rate  (sec-^) 

ACS  operations 
Command  operations. 
TLM  operations  required 


4.  3.  4 Other  Subroutines  Called 

4-3.4.  i Subroutine  MIS  (IPIC,  IERR,  ITER,  NCONF,  ICHOSE,  NCHOSE)  • ~ 

. The  purpose  of  this  subroutine  is  to  select  a DTU  for  mission 
equipment  data  processing.  It-  is  called  from  subroutine  DPI  in  the  special 
purpose  processing  configuration  for  the  specific  communications  configura- 
tions discussed  in  Paragraph  4.3.1.  The  same  six  quantities  (i.e., 
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requirement  for  digital  multiplexer,  number  of  mainframe  words,  word 
length,  bit  rate,  number  of  words  per  subframe,  and  number,  of  subframes) 
which  are  computed  in  subroutine  DPI  for  all  equipment  on  board  the  satellite 
are  computed  for  the  mission  equipment  in  subroutine  MIS. 

The  variables  listed  in  the  calling  sequence  are  discussed  in 
Paragraph  3.  3. 


4.  3.4.  2 Subroutine  ORDER  (N,  A,  B,  C,  XM2,  MEDIAN) 


The  purpose  of  this  subroutine  is  to  order  array  A from  the 
highest  to  the  lowest  entry  and  determine  the  median  entry  in  this  array. 
The  high  rate  telemetry  points  are  ordered  with  respect  to  both  sample  rate 
and  word  length  while  the  low  rate  telemetry  points  are  ordered  only  with 
respect  to  sample  rate.  This  information  is  used  to  determine  mainframe 
sample  rate  and  maximum  word  length. 

This  subroutine  is  called  by  both  subroutines  DPI  and  MIS.  The 
variables  in  the  calling  sequence  are  defined  as  follows: 

N = Number  of  entries  in  telemetry  points  table 

A = One -dimensional  array  consisting  of  sample 

rates  or  word  lengths 

B = One-dimensional  array  consisting  of  number  of 

analog  and  digital  “points 

C'  = One-dimensional  array  consisting  of  sample 

rates  or  word  lengths 

XM2  = Twice  the  median  value  of  array  A after  it  has 

been  ordered 

MEDIAN  = ‘ Median  entry  in  array  A 


4.4 


SUBROUTINE  COMM  (IPIC,  IERR,  ITER,  NCONF,  ICHOSE, 
NCHOSE) 


4.4.  1 


Purpose  of  Subroutine 


The  communication  subroutine  selects  hardware  for  the  satellite 
command  and  telemetry  system.  Five  configurations  are  provided  for  in  the 
subroutine.  These  are  determined  by  the  complexity  of  the  data  processor 
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being  used  and  the  amount,  of  data- to,  be  transmitted;  The.  pieces  of  equip- 
ment which  may  be  selected  are:  baseband  assembly  unit,  transmitter  anten- 
na(s),  transmitter(s),  receiver  antenna,  receiver,  diplexer,  and  signal  con- 
ditioner. The  pieces  chosen  and  the  number  chosen  are  configuration  depend- 
ent. - . 

- . Each  piece  of  equipment  to  be  chosen  is  selected  by  comparing 

the  attributes  as  computed  from,  the  user  input,  configuration  number,  and 
default  parameter  values,,  with  the  attributes  for. that  piece  of  equipment 
in  the  data  base,  • ■ 

There  are  pieces  of  equipment  which  have  constraints  placed 
on  them  for  the  selection  process.  For.  example,  a given  baseband  assembly 
unit  may  be  constrained  for  use  with  a given  transmitter  and  no  other.  Thes< 
constraints  are  built  into  the  data  base. 

For  the  present,  the  antennas  in  the  data  base  are  limited  to 
one  of  each  type  and  the  steerable  parabolic  antenna  option  is  to  be  included 
in  a later  version. 

, * * < . ' t * 

The  .sequences  in  which  equipment  are  selected  in  each  configura- 
tion are  given  below:' 

a.  . Uplink  Plus  Downlink- [NCONF(4)  = 1]  ‘ 

. .1.  Transmitter  antenna 

2.  Transmitter 

" ^ 3;  • Receiver  antenna 

4.  Receiver 

5.  Signal  conditioner 

b.  Unified  Link,  Common  -Antenna  [NCONF(4)  = 2] 

1.  Baseband  assembly  unit 

2 . Antenna 

3.  Transmitter 

' .4.  Receiver 

5.  Signal  conditioner 

6.  Diplexer 

c.  Unified  Link,  Separate  Antennas  [NCONF(4)  = 3] 

1.  Baseband  assembly  unit 

2 . T ransmitte  r antenna  ■ 

3.  Transmitter 

4.  Receiver  antenna 

5.  Receiver 

6.  Signal  conditioner 
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1.  Baseband  assembly  unit  ■ ’ ' 

2.  Transmitter  antenna  (unified) 

3.  Transmitter  antenna  (nonunified) 

4.  Transmitter  (unified)  ’ ' 

5.  Transmitter  (nonunified) 

6.  Receiver 

7.  Signal  conditioner 

8.  Diplexer  . - 

e.  Unified  Link,  Separate  Antennas  pl;us  Downlink  [NCONF(5)  - 5] 

1.  Baseband  assembly  unit 

2.  Transmitter  antenna  (unified) 

3.  Transmitter  antenna  (nonunified) 

4.  Transmitter  (unified) 

5.  Transmitter  (nonunified) 

6.  Receiver  antenna 

7.  Receiver 

8.  Signal  conditioner 


4.4.2  Communication  with  Main  Program 

The  variables  listed  in  the  calling  sequence  are  common  to  all 
subroutines  which  select  hardware  and  are  discussed  in  Paragraph  3.  3. 

In  addition  to  the  calling  sequence,  Subroutine  COMM  communi- 
cates with  the  main  program  via  three  COMMON  blocks:  USER-4,  BTWN,  and 
DBCOM.  Variables  coming  through  USER-4  are  user  inputs  discussed  in 
Paragraph  8.  1 (see  NAMELIST  USRCM).  The  variables  in  BTWN  and  DBCOM 
are  discussed  in  Paragraph  3.  2. 

4.4.3  Variables  Specified  in  DATA  Statements 


where: 


DATA  SIGNOI/IO.,  10.  /,  LMARG/6. , 6. /,  SLANT/- 1 . E+10/, 

GTOT/-1.E+10/,  GR/-1.E+10/,  T/-1.E+10/,  NF/-1.E+10/; 
TCLOSS/-0.,  0.  /,  POLOSS/O./,  GAMMA/.  1/,  BETA/1.8/, 
GT/-1.E+10,  -l.E+10/,  MODX/O.’  0. /,  ANTLOS/O./, 
COVER /0 ./ 

SIGNOI(2)  = Signal-to-noise  ratios  for  transmitter(s) 

(dB) 
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LMARG(2)  = .Link  margin(s)  (.dB) 

SLANT  ="  Slant  range’  (nmi) 

GTOT  . = Gain-to-temperature' ratio 

GR  , ..  -=  Receiving  antenna  (do.whlink)  gain  (dB) 

T • = System  noise  temperature  ‘(°K) 

NF, ; ■ = Noise,  figure  .(dB) 

TCLOSS.(2)  , = Transmitter (s)  circuit  loss, 

FOLOSS  = Polarization  loss 

ANTLOS  = - Satellite  antenna  off-axis  loss 

GAMMA  ..  , = PRN  modulation  index; 

■ BETA  * = . Subcarrier  -modulation  index 

GT(2)  -=  Antenna(s)  gain  (dB) . 

MODX(Z)  - = Transmitter(s)  modulation  type 

MODX  = 0 no  equipment  dependence 
MODX  = 1 phase  modulation 
MODX  = 2 frequency  modulation 
. MODX.=  3 amplitude  modulation 

COVER  = * Transmitter  antenna  coverage  (in- percent) 

4.4.4  • Other  Subroutines  Called 

4.  4.4.  1 Subroutine  BESS  (X,  BEST,  NMAX) 

This  subroutine  uses  a recursive  procedure  for  evaluating 

tables  of  the  Bessel  function,  J (x) . 

nv  ' 

The  variables  in  the  calling  sequence  are  defined  as>.  follows: 

X = floating  point  single  precision  argument 

BESJ  = one -dimensional  array  of  values  if  J ( x) 

NMAX  = one  less  than  the  number  of  values  in  BESJ  array 

. i.e.,,  BESJ  (n  + 1)'  = J^(x),  n = 0,  . . . , /NMAX/ 

4.  4.  4.  2,  Function  RESET  (K) 

This  subroutine,  as  the  name  implies,  resets  or-  initializes 
equipment  indices  in  the  data  base. 
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SUBROUTINE  EP  (IPIC,  IERR,  ITER,  NCONF,  ICHQSE,  NCHOSE) 
4.5.1  Purpose  of-Subroutine  . . 

The  electrical  power  subroutine  selects  hardware  which  is 
required  to  regulatethe  electrical  power  for  the  spacecraft  and  batteries 
to  store  the  electrical  power'.  Six  configurations  are  considered  in  the  .sub- 
routine. These  configurations  are -characte  rized  by  the  nature  of  the  regula- 
tion and  the  configuration  of  the  s.olar  arrays. 

All  regulators,  batteries  and  battery  chargers  are  selected  by 
comparing  appropriate  attributes  listed  in  the  data  base  with  satellite  per- 
formance determined  by  the  model.  Regulators  are  selected  on  the  basis 
of  their  ability  .to  regulate  the  power  load,  batteries  on  the  basis' of  the 
capacity  needed  during  the  eclipse  portion  of  orbit,  .and  battery  chargers 
on  the  basis  of  being  able  to  use  the  excess  power  to  store  energy  back  into 
the  battery. 

The  model  does  not  include  selection  criteria  for  power  control 
units,  central  control  units,  solar  power  distributor,  and  power  distributors. 
The  first  .equipments  available  in  the  data  base  are  simply^alled  up.  The 
solar  array  area  and  weight  are  based  primarily  on  the  average  power  load 
required  for  the  spacecraft. 

The  sequences’ in  which  equipments  are  selected  in  each  config- 
uration are  given  below: 

a.  Shunt  Regulation  - Paddle  and  Body  Mounted  Arrays 

LNCONFfS)  = 1 or  Zj 

1. '  Shunt  regulator 

2.  Battery 

3.  Battery  charger 

4.  Power  control  unit 

b.  Shunt  and-Discharge  Regulation  - Paddle  and  Body  Mounted  Arrays 

LNCONF( 5)  = 3 or  4j  T : 

1.  Discharge  regulator 

,2.  Shunt  regulator 

3.  Battery 

4.  Battery  charger 

5.  Central  control  unit 
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c. 


Series  Load  Regulation  - Paddle  and  Body  Mounted  Arrays 
LNCONF(5)  = 5 or-6f  T 

1.  Series  load  regulatoi 

2.  Battery 

'3.  Battery  charger 

4.  Power  distributors 

5.  Solar  power  distributors. 

4.5.2  Communication  with  Main  Program  . 

The  variables  listed  in  the  calling' sequence -are  common  to,  all 
subroutines  which  select  hardware  and  are  discussed  in  Paragraph  3.3. 

In  addition  to  the  calling  sequence,  subroutine  EP  communicates 
with  the  main  program  via  four  named  COMMON  blocks:  USER- 5,  USER-I, 
BTWNj  and  DBCOM.  Variables  comifig  through  USER- 5 and  USER-I  are 
user  inputs  discussed  in  Paragraph  8.  1 (see  NAMELIST s USREP  and  USRI). 
The  variables  in  BTWN  and  DBCOM  are  discussed  in  Paragraph  3.2. 

4.  5.  3'  Variables  Specified  in  DATA  Statements 

DATA  DELF /.  03/,  DELI/.  02/,  DELM/.OI/,  ETAI/.  105/, 

ETAR/ 1.0/,  Kl/1.02/,  K2/1.4/,  LMBDP/.9/,  SOL/1353/, 
VC/1.1/,  PIE/3.1416/,  CHMINT/2.  0/ 

where: 


DELF 

— 

Coverglass  and  coverglass  adhesive  transmissivity 
loss  factor  (dimensionless) 

DELI  ' 

= 

Array  fabrication  loss  factor  (dimensionless) 

DELM 

- 

Miscellaneous  loss  factor  (dimensionless) 

ETAI 

” * 

Solar  cell  efficiency  at  28°C,  AMO  illumination 
(dimensionless) 

ETAR 

= 

Power  distribution  loss  factor  (array. to  loads) 

K1 

= 

Battery  packing  factor  (dimensionless) 

K2 

= 

Battery  structure  weight  factor  (dimensionless) 

LMBDP 

= 

Solar  array  factor  (dimensionless)  (active  surface 
area/actual  surface  area) 

SOL 

= 

2 

Average  solar  intensity  (watts/meter  ) 
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VC  - ‘ = Minim um  allowable  cell  voltage  {V  dc) 

CHMINT  = Minimum  allowable'  charge  time  (hr) 

4.5.4  Other  Subroutines  Called 

None 
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5.-  SUBROUTINES  WHICH  DO. NOT  SELECT  HARDWARE 

h ► ' » 

/ ‘ " ’ ’ *’ 

* j ’ „ ’ ‘ , 

5.1  SUBROUTINE  FILTER  (N.CONF,  ICODE) 

5.1.1  Purpose  of  Subroutine  • . . . 

Some  combinations  of  configurations  are  known  to  be  unacceptable. 
These  are  filtered  out  without  the  necessity  of  calling  any  subsystems.  As 
an  example,  configuration  1 in  S&C  and  configuration  1 in  EP  are  incompat- 
ible because  1 in  S&C  is  a spinning  vehicle  and  1 in  EP  requires  solar  array 
paddles  which  cannot  be  used  on  a spinning  vehicle.  A complete  description 
of  these  restrictions  is  presented  in  Section  7. 

5.  1.  2 Communication  with  Main  Program 

NCONF  is  an  array  containing  the  number  of  each  subsystem's 
configuration.  ICODE  is  a return  code  of  0 for.  compatible  configurations  or 
-1  for  unacceptable  combinations  of  configurations. 

FILTER  also  uses  values  from  COMMONS  USER-1,  USER- 3, 
USER-4,  and  USER-5,  all  of  which  are  discussed  in  Paragraph  8.  1. 

5.1.3  Variables  Specified  in  DATA  Statements 
None 

5.1.4  Other  Subroutines  Called 
None 

5.  2 . SUBROUTINE  INITIL  (NCONF,  IERRI) 

5.  2.  1 Purpose  of  Subroutine 

Some  values  are  needed  before  they  are  calculated.  For  example, 
subroutine  SANDC  needs  moments  and  lengths  which  are  calculated  'down- 
stream' in  vehicle  sizing.  Approximations  for  such  values  are  calculated 
here. 
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5.  2.2 


Communication  with-  Main  -Program 

NCONF  is  as  previously  discussed.  IERRI  is  a flag  set  when 
the  estimated  satellite  diameter  exceeds  the  maximum  allowable  size. 

INITIL,  also  uses  values- from  USER-1  and  USER-I  .{both  described' 
in  Paragraph  8.  1)  and  places  values  in  BTWN  (discussed  in  Paragraph  3.2) 

5.  2.  3 Variables  Specified  in  DATA  Statements 

None 

5.2.4  Other  Subroutines  Called 
None 

5.  3 SUBROUTINE  REAPDB  (IENDDB) 

5.  3.  1 Purpose  of  Subroutine 

This  subroutine  reads  all  data  base  values  for  one  subsystem  at 
a time  and  calculates  the  numbers  to  fill  the  IDB  array.  Of  major  importance 
are  the  equipment  numbers  which  exist  as  the  first  two  digits  of  the  four 
digit  equipment  identification  numbers'.  These  are  counted  by  groups  (all 
1 's,  all  2's,  all  3's,  . . . .)  and  these  counts  exist  as  IDB(l),  IDB{2),  and 
so  on.  The  routine  returns  when  equipment  for  the  next  subsystem  is 
encountered,  i.e.,  when  the  equipment  numbers  begin  to  decrease. 

5.3.2  Communication  with  Main  Program 

IENDDB  is  the  last  column  in  the  data  base  for  the  active  sub- 
system. This  is  needed  for  the  SAVE  routine.  DBCOM  is  filled  by  this 
routine  (see  Paragraph  3.2); 

5.  3.  3 Variables  Specified  in  DATA  Statements 

DATA  STORE/ 55*0.  / 

STORE  = variable  used  for  temporary  storage 

5.3.4  Other  Subroutines  Called 
None 
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SUBROUTINE  SAVE  (IIN,  NIN,  NO  WAT,  ITEST,  IENDDB) 

5.4.- 1 Purpose  of  Subroutine 

The  purpose  of  this  subroutine  is  to  b.uild  matrices  needed  by 
other  subsystems.  Specifically  this  routine  concatenates  separate  ICHOSE 
and.NCHOSE  arrays  (with-  zeros  taken  out)  which  contain  the  hardware 
I.  D.  ’s  of  equipment  selected  for  the  five  satellite  subsystems  and  the  number 
of  each  equipment  type.  It  also  saves  the  data  required  to  fill  the  COST,  REL 
THM,  DPIA,  and  SKD  arrays  for  [their  subroutines. 

5.4.2  Communication  with  Main  Program 

IIN  and  NIN  are  ICHOSE  and  NCHOSE  of  the  active  subsystem 
(described  in  Paragraph  3.  3).  NOWAT  is  described  in  Paragraph  3.  3. 

ITEST  is  the  largest  possible  number  of  types  of  equipment  chosen  by  a 
subsystem.  The  two  COMMON  areas  (DBCOM,  CHOSE)  which  are  also  used 
for  communication  with  the  main  program  are  discussed  in  Paragraph  3.  2. 

5.4.3  Variables  Specified  in  DATA  Statements 
None 

5.4.4  Other  Subroutines  Called  • 

None 

5.5  SUBROUTINE  VESIZE  (IERR,  NCONF,  ICHOSE) 

5.  5.  1 Purpose  of  Subroutine 

The  vehicle  sizing  subroutine  determines  the  satellite  structural 
weight,  the  total  weight,  the  satellite  volume,  dimensions,  center  of 
gravity  locations  and  the  satellite  inertial  characteristics.  v Three  config- 
urations are  considered  in  the  subroutine.  These  configurations  are 
characterized  by  the  shape  of  the  equipment  bay:  cylinder,  box,  sphere. 
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The  following' quantities  are  computed  in' the  sequence  indicated 

a.  Equipment  bay  equipment  weight  and  volume 

b.  Equipment  bay  length 

c.  Satellite  length 

d.  Solar  array  dimensions 

e.  Equipment  bay  structural  weight 

f.  Mission  equipment  bay  structural  weight 

g.  Mission  equipment  support  weight 

h.  Total  volume  of  mission  equipment  bay 

i.  Solar  array  boom  and  mechanism  weight  (paddles) 

j.  Total  mission  equipment  and  external  equipment  weight  and 
volume 

k.  Harness  weight 

l.  Structural  thermal  protection  system  weight 

m.  Satellite  dry  weight 

n.  Satellite  gross  weight 

o.  Satellite  launch  weight 

p.  Mission  equipment  and  mission  equipment  bay  structure  CGs 

q.  Equipment  bay  structure  CGs 

r.  External  equipment  CGs 

s.  Solar  array  CGs 

t.  Satellite  CGs 

u.  Equipment  bay  structure  and  equipment  bay  equipment 
incremental  inertia 

v.  External  equipment  incremental  inertia 

w.  Solar  array  incremental  inertia 

x.  Mission  equipment  bay  incremental  inertia 

y.  Total  satellite  inertia 

z.  Distance  from  satellite  CG  to  main  engine 

a.  Gas  jet  lever  arms  on  roll,  pitch,  and  yaw  axes 
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5.5.2  Communication  with  Main  Program 

All  three  variables  listed  in  the  calling,  sequence  are  .discussed 
in  Paragraph  3.  3.  (In  this  subroutine  ICHOSE  is  a scalar  which  is  set 
to  - 1 when  the  current  design  is  unacceptable.)  ‘ 1 

In  addition  to  the  calling  sequence,  subroutine  VEStZE  com- 
municates with  the  main  program  via  three  COMMON  blocks:  USER-I, 
USER-6,  and  BTWN.  Variables  coming  through  USER-I  and  USER-6  are 
user  inputs  discussed  in  Paragraph  8.  1 (see  NAMELISTs  USRI  and  USRVS). 
The  variables  in,  BTWN  are  discussed,  in  Paragraph  3.2. 

5.5.3  Variables  Specified  in  DATA  Statements 
None 

5.5.4  Other  Subroutines  Called 
None  * 

5.  6 SUBROUTINE  STRUCT  (NCONF) 

5.  6.  1 Purpose  of  Subroutine 

The  structures  subroutine  specifies  the  satellite  loads  environ- 
ment and  sizes  the  solar  array  extension  supports,  the  equipment  bay 
structure,  the  end  covers  and  the  midsection  bulkhead  if  appropriate. 

One  configuration  is  considered  in  the  subroutine.  This  configuration  is 

/ 

characterized  by  the  type  of  equipment  bay  structure:  semi  -mono  coque. 

The  following  quantities  are  computed  in  the  sequence  indicated: 

a.  Solar  array  paddle  applied  load 

b.  Nominal  radius  and  wall  thickness  of  solar  array  extension 
supports 

c.  Loads  applied  to  equipment  bay  structure 

d.  Equivalent  axial  load  on  semi-monocoque  structure' 

e.  Equivalent  thickness  of  stiffened  cylinder 

f.  Skin  thickness  of  skin-stringer  assembly 
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g.  Stringer  thickness,  height,  spacing,  and  efficiency 

h.  Number  of  stringers 

i.  Cylinder  frame,  radius  of  gyration,  area,  height,  thickness 

and  spacing  ' 

j.  Number  of  frames 

k.  Forward  and  aft  end  cover  thickness 

l.  Applied  uniform  load  on  midsection  bulkhead 

m.  Midsection  bulkhead  thickness 

If  the  equipment  bay  shape  is  a box  instead  of  a cylinder,  quan- 
tities comparable  to  those  listed  above. in  steps  d - k are  computed  for  the 
box  shape. 


5.6.2  Communication  with  Main  Program 

The  variable  in  the  calling  sequence  is  discussed  in  Paragraph 
3.  3.  In  addition  to  the  calling  sequence,  subroutine  STRUCT  communicates 
with  the  main  program  via  three  COMMON  blocks:  USER-6,  USER-7,  and 
BTWN.  Variables  coming  through  USER-6  and  USER-7  are  user  inputs 
discussed  in  Paragraph  8.  1 {see  NAME LISTs  USRVS  and  USRST).  The  variables 
in  BTWN  are  discussed,  in  Paragraph  3.2. 


'5.6.3 


w;he  re : 


Variables  Specified  in  'DATA  Statements 

DATA  E,  XNU,  RHO,  SIGY,  PI/1.E7,  .33,  .1,  3.E4,  3.1416/ 


E 

XNU 

RHO 

SIGY 


Young's  modulus  (psi) 
Poisson's  ratio 
Weight  density  (lb/in^) 
Yield  stress  (psi) 


5.6.4  . Other  Subroutines  Called 


None 


5.  7 SUBROUTINE  RELY  (IRIN,  .IDS,  NEQUIP)  . 

5.7.1  Purpose  of  Subroutine  . 

The  reliability  subroutine  incrementally  Increases  the  level 
of  redundancy  in  the  spacecraft  system  until  the  system  reliability-, 
R(TRUNC),  and' the'mean  mission  duration,  MMD,  specifications  are  met. 
The.  procedure  is  constrained  by  a maximum  total  satellite  weight  on  cost 
and  available  equipment  reserves.  - The  subroutine  operates  to  meet  the 
system  reliability  specification  prior  to  meeting  the  mean  mission  duration 
requirement. 

The  principle  of  operation  is  to  add  a redundancy  to  a single 
module,  then  calculate  the  new  system  reliability  and  the  payoff,  as 
defined  by 

RHO  = aR(trunc)  • . 

A weight 

This  is  repeated  for  each  module  where  equipment  reserves  are  available. 
The  module  offering  the  greatest  payoff  is  selecte.d,  and  the  following  three 
tests  are  applied: 

a.  Is  RHO  large  enough?  ' (The  threshold  is  preselected.) 

b.  Is  spacecraft  weight  or  cost  below  the  maximum  allowed? 

c.  Is  the-R(TRUNC)  still  short  of  the  requirement? 

If  these  tests  are  passed,  the  subroutine  begins  the  selection  process 
again.  This  loop  is  retraced  until  one  or  more  of  the  tests  is  failed. 
Failure  of  tests  a or  b results  in  termination  of  the  design  procedure. 

If  a configuration  is  found  which  meets  the  system  reliability  require- 
ment, then  the  above  is  repeated  replacing  R(TRUNC)  with  MMD.  A 
final  design  is  recognized  as  optimum  subject  to  the  imposed  R(TRUNC), 
MMD,  weight,  and  cost  constraints. 

The  subroutine  contains  the  additional  feature  in  that  sub-  ‘ . 
system  reliabilities  may  be  specified.  The  task  of  meeting  subsystem 
requirements  is  performed  prior  to  any  total  system  considerations.  • The 
same  logic  as  presented  above  is  used  for  determining  the  appropriate 
subsystem  redundancies . 
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5.7.2 


Communication  with  Main  Program  - • 

The  variables  listed  in  the  calling  sequence  "are:  a return  in- 
dicator, a double  string  design  indicator,  and  a vector  of  the  number  of 
equipment  types  per  subsystem,  respectively. 

■ Subroutine  RELY  additionally  communicates  with  the  main 
program  through  the  COMMON  blocks:  USERR,  USER-5,  BTWN,  and 
CHOSE.  Variables  in  USERR  and  USER-5  are  user  inputs  and  are  dis- 
cussed in  Paragraph  8.  1 (see  NAMELISTs  USRRE  and  USREP).  The 
variables  in  BTWN  and  CHOSE  are  discussed  in  Paragraph  3.  2. 

5.7.3  Variables  Specified  in  DATA  Statements 

None 


5.7.4  ' Other  Subroutines  Called 

5.  7.4.  1-  . Subroutine  RIMOD  (J,  DELH,  ITRUNC,  NT,  IADD,  IOPT 

Subroutine  RIMOD  is  called  by  subroutine  RELY.  Subroutine 
RIMOD  computes  the  reliability  function  for  a specified  module  with  or 
without  a -redundancy  added.  Five  different  models  are  used,  depending  on 
the  failure  mode  of  an  individual  module.  The  calling  parameters  are: 


• J =•  Current  module  number 

DELH  = Time  increment 

ITRUNC  = Number  of  time  points 
NT  = Input  option 

IADD  = Input  option 

IOPT  = Input  option 

Parameters  passed  through  COMMON  block  CHOSE  are: 


NCHOSE 
SYS  PAR 


Initial  number  of  .elements  by  module 

Matrix  of  model  parameters  (called  ,DATAB-in 
subroutine’  RELY) 
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Parameters  passed  through  COMMON  block  DBCOM  are: 

R ' ! = Resultant  reliability  function 

NR  * ■*  ==  Number  of  redundancies' by  module 

5.  7. 4. 2 ' Subroutine  QSF  (H,  Y,  Z,  NDIM) 

Subroutine  QSF  is  called  by  subroutine  RELY.  Subroutine  .QSF 
computes  a vector  of  integral  values  for  a given  equidistant  table  of  func- 
tion values.  QSF  is  a member  of  the  System/360  Scientific  Subroutine 
Package.  The  calling  parameters  are: 

H = Increment  of  argument  values 

Y = Input  vector  of  function  values 

Z = Resulting  vector  of  integral  values 

N-DIM  = Dimension  of  vectors  Y and  Z 

No  parameters  are  passed  in  common. 

5.  7.  4.  3 Subroutine  GAM  (X) 

The  function  GAM  is  called  by  RIMOD.  Function  GAM  computes 
the  gamma  function,  of  its  argument,  X.  GAM  uses  a polynomial  approxi- 
mation on  the  interval  (1.0,  2.0). 

5.  7. 4. 4 Subroutine  CERF  (X)-  ' 

The  function  CERF  is  called  by  RIMOD.  Function  CERF  com- 
putes the  error  function  for  X in  (6.  0,  4.  0)  and  the  compliment  of  the  error 
function  for  X in  (4.  0,  <x> ).  A Chebyshev  approximation  is  used  in 
both  cases. 

5.8  SUBROUTINE  THRML  (IERR,  NCONF) 

. * 

5.8.1  Purpose  of  Subroutine  . . 

The  thermal  sizing  subroutine  determines  the  phase  change 
material  weight,  insulation  area,  heater  power,  radiator  area,  and  types 
of  heat  pipes  to  be  used.  Various  configurations  are  considered  in  the 
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subroutines  dependent  upon  variables  such  as  orbit,  shape  of  vehicle, 
type  of  stabilization,  power  requirements,  temperature  limits,  and 
battery  temperatures.  These  variables  are  determined  elsewhere  in  the 
model  and  passed  to  THRML  via  the  common  blocks. 

The  output  quantities  are  computed  in  the  following  sequence: 

‘ a.  Radiator  area  (RADA) 

b.  Heater  power  (HTRPWRr) 

c . Heat  pipe  (HTPIPE) 

d.  Battery  radiator  area  (RADAB) 

e.  Battery  heater  power  (HT RPR B) 

f.  Battery  variable  conductance  heat  pipe  (VCHP) 

g.  Total  radiator  area  (RAT) 

h.  Total  heater  power  (HPT) 

i.  Total  heat  pipes  (HTPT) 

5.8.2  Communication  with  Main  Program 

Both  variables  listed  in  the  calling  sequence  are  discussed  in 
Paragraph  3.3. 

In  addition  to  the  calling  sequence,  subroutine  THRML  com- 
municates with  the  main  program  via  four  COMMON  blocks:  USER-I, 
USER- 7,  CHOSE,  and  BTWN.  Variables  coming  through  USER-I  and 
USER- 7 are  user  inputs  discussed  in  Paragraph  8.  1 (see  NAMELIST  USRI 
and  USRTH).  The  variables  in  BTWN  and  CHOSE  are  discussed  in 
Paragraph  3.  2. 

5.8.3  Variables  Specified  in  DATA  Statements 

DATA  SIGMA/O.  1714  E-08/,  QS/442 . /,  EMESS/60. /, 

ALBDO/155./,  CONST/1.5/,  PIE/3.1416/ 

where:  . 

SIGMA  = Boltzmann  constant  in  Btu/(hr-ft-deg  R^) 

2 

QS  = Solar  constant  in  Btu/(hr-ft  ) 
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EMISS  = Earth  emission  in  Btu/(hr-ft^) 
ALBDO  = The  Albedo  in  Btu/ (hr-ft^) 
CONST  = The  K constant  (dimensionless) 

5.8.4  Other  Subroutines  Called 

None  - 

5.  9 SUBROUTINE'  COSTS  (NCONF,  NEQUIP) 

5.9.1  Purpose  of  Subroutine 


The  cost  subroutine  determines  the  cost  of  building  and  inte- 
grating a payload  from  the  design  engineering  phase  to  the  launch  phase. 


Costs  are  broken  down  into  the  following 
in  parenthesis):' 

DDT&E  (Nonrecurring) 

Design  engineering  (DE) 

Test  and  evaluation  (TE) 

Tooling  and  equipment  (TOOLR) 

Quality  control  (QCR) 

Systems  engineering  and  integration 
(SEIR) 

Program  management  (PMR) 


categories  (variable  names  are 

Investment  (Recurring) 

Unit  engineering  (PE) 

Unit  production  (PU) 

Tooling  and  equipment  (TOOLtT) 

Quality  control  (QCU) 

Systems  engineering  and  integra 
tion  (SEIP) 

Program  management  (PMP) 


Other  costs  which  are  computed' are  listed  irnthe  table  below  (variable 
names  are  written  in  where  computed):" 


Cost  Category 

DDT&E 

Investment 

Operations 

Spacecraft 

SATR  • 

SATINV 

Mission  equipment 

XMER 

XMEINV 

Total  payload 

PAYR 

PAYINV  • 

Quality  Units 

PAYQUL 

GSE 

Launch  support 

GSE 

XLTOT 
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DDT&E 


Investment 


Operations 


Cost  Category 

Flight  operations 
Contractor  fee  FEER  FEEINV 

Program  total  DDTE  XVEST 

5.9.2  Communication  with  Main  Program 


CTOT 
FEE OPS 
OPS' 


Both  variables' listed  in  the  calling  sequence  are  discussed 
in  Paragraph  3.3. 

In  addition  to  the  calling  sequence,  subroutine  COSTS  com- 
municates with  the  main  program  via  four  COMMON  blocks:  USERC,  BTWN, 
CHOSE,  and  PRTCOM.  Variables  coming  through  USERC  are  user  inputs 
discussed  in  Paragraph  8.  1 (see  NAMELIST  USRCS).  The  variables  in  BTWN, 
CHOSE,  and  PRTCOM  are  discussed  in  Paragraph  3.2. 

5.9.3  Variables  Specified  in  DATA  Statements 


DATA  FR,  FP,  FT,  FE,  RE,  RT,  RP,  BE,  B-T,  BP,  PI,  SF 


where: 


FR{6)  . = Subsystem  design  engineering  cost  factor 

FP(6)  = Subsystem  unit  production  cost  factor 

FE(6)  = Subsystem  unit  engineering  cost  factor 

FT(6)  = Subsystem  test  evaluation  cost  factor 

RE (6)  = Design  engineering  CER  constant 

RT(6)  = Test  evaluation  CER  constant 

RP(6)  = Production  CER  constant 

BE(6)  = Design  engineering  CER  exponent 

BT(6)  = Test  evaluation  CER  exponent 

BP(6)  = Production  CER  exponent 

The  six  values  in  each  of  the  above  arrays  are  associated  with' the  follow- 
ing equipment  or  systems  in  the  order  indicated: 


a.  Solar  array 

b.  Wiring  harness 
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c.  ' Thermal 

d.  Converters 

e.  Propellant  feed  systems 

f.  Structures 

In  addition: 

' PI 

SF 

5.9.4  Other  Subroutines  Called 

None 

5.  10  SUBROUTINE  SKED  (NEQUIP,.  NCONF) 

5.  10.  1 Purpose  of  Subroutine 

The  purpose  of  this  subroutine  is  to  calculate  component 

development  lead  time,  subsystem  development,  component  qualification 
time,  subsystem  qualification  lead  time,  test  lead  time,  and  a total  time 
for  each  subsystem  and  for  the  mission  equipment.  The  critical  path  is 
determined  and  the  associated  times  are  passed  to  the  PRNT  routine. 

5.10.2  Communication  with  Main  Program 

Both  variables  in  the  calling  sequence  are  discussed  in  Paragraph 
3.  3.  Subroutine  SKED  also  communicates  with  the  main  program  via  three 
COMMON  areas:  CHOSE,  USER-8,  and  PRTCOM.  Variables  coming  throu^ 
USER-8  are  user  inputs  discussed  in  Paragraph  8.  1 (see  NAMELIST  VSRSK) 
The  variables  in  BTWN  and  PRTCOM  are  discussed  in  Paragraph  3.  2. 

5.10.3  Variables  Specified  in  DATA  Statements 
DATA  CONF,  ICI 

where: 

CONF(22,  5)  = Configuration  dependent  weighting  factors 
ICI{5)  = Index  with  which  the  CONF  array  is  addressed 


= Price  index  (i.e. , change  of  the  value  .of  the 
dollars)  . ' 

Optional  factor  (e.  g. , standardization  factor) 


5-13 


5.  10.4 


Other  Subroutines  Called 


None 

5.11  .SUBROUTINE  PRNT  (IERR,  NEQUIP,.  NACCEP,  NCONF) 

5.11.1  Purpose  of  Subroutine 

This  subroutine  prints  all  output  determined  by  the  model.  A 
sample  of  the  output  may  be  found  in  Paragraph  8.  3.  The  output  consists  of 
a glossary  and  acceptable  design  attributes  for  the  specified  mission. 

5.11.2  Communication  with  Main  Program 

The  variables  IERR  and  NCONF  listed  in  the  calling  sequence 
are  discussed  in  Paragraph  3.  3.  NEQUIP  is  discussed  in  Paragraph  3.  1. 
NACCEP  is  a counter  maintained  by  MAIN  and  used  only  by  PRNT.  It  is 
the  acceptable  design  number  identifying  the  particular  run. 

In  addition  to  the  calling  sequence,  subroutine  PRNT  communi- 
cates with  the  main  program  via  four  COMMON  blocks:  BTWN,  PRTCOM, 
CHOSE,  and  DBCOM.  The  variables  in  these  common  areas  are  discussed 
in  Paragraph  3.  2. 

5.11.3  Variables  Specified  in  DATA  Statements 
None 

5.11.4  Other  Subroutines  Called 

TVIn-rt  <=» 
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6.  DATA  BASE 


Paragraph  6.  1 contains  the  discussion  of  the  data  base,  the 
position  of  the  attributes  contained  therein,  and  a description  of  the  data 
base  tape.  Paragraph  6.2  discusses  the  PRESORT  program  which  may 
reorder  the  data  base  as  an  input  to  the  model. 

6.  1 FORMAT 

The  data  base  tape  is  a seven  track,  BCD  tape,  800  bpi  and 
blocked  84  characters  per  record.  The  format  is  illustrated  in  Figure  6-1. 

Equipments  in  the  data  base  are  ordered  by:  (1)  subsystems, 

(2)  configuration  within  each  subsystem,  and  (3)  equipment  types  within 
each  configuration  [sized  equipment(s)  first,  selected  equipment(s)  second]. 
Within  equipment  types,  the  equipment  is  ordered  according  to  the  prime 
technical  performance  parameter,  (This  ordering  may  be. changed  by  the 
PRESORT  routine  discussed  in  Paragraph  6.2.  ) A list  of  the  data  base 
equipment  in  the  order  determined  by  these  considerations  is  given  below: 

a.  Stabilization  and  Control 

1.  De spin  mechanical  and  electronics  assembly 

2.  Valve  driver  assembly 

3.  Sun  sensor  with  electronics 

4.  Nutation  damper 

5.  Gimbal  electronics  assembly 

6.  Control  timing  assembly 

7.  Biaxial  drive  assembly 

8.  Nonscanning  earth  sensor 

9.  Sun  sensor  with  electronics 

10.  Control  electronics  assembly 

11.  Rate  gyro  assembly 

12.  Horizon  sensor 

13.  Reaction  wheel 

14.  Power  converter 

15.  Attitude  reference  electronics 

16.  Valve  driver  assembly 

17.  Rate  integrating  gyros 
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18.  Horizon  sensor  (with  electronics) 

19.  Electronics  processing  assembly 

20.  Single  gimbal  control  moment  gyro 

21.  Star  sensor  with  electronics 

22.  Electronic  error  processor 

b.  Auxiliary  Propulsion 

1.  Cold  gas  pneumatic  thruster 

2.  Cold  gas  isolation  valve 

3.  Cold  gas  filter 

4.  Cold  gas  pressure  regulator 

5.  Cold  gas  pneumatic  tank 

6.  Cold  gas  fill  and  vent  valve 

7.  Cold  gas  relief  valve 

8.  Monopropellant  thruster 

9.  Monopropellant  isolation  valve 

10.  Monopropellant  filter 

11.  Monopropellant  spherical  tank 

12.  Monopropellant  fill  valve 

13.  Bipropellant  thruster 

14.  Bipropellant  isolation  valve 

15.  Bipropellant  filter 

16.  Bipropellant  tank 

17.  Bipropellant  fill  valve 

c . Data  Processing  and  Instrumentation 

1.  General  purpose  processor 

2.  Special  purpose  processor  (digital  telemetry  unit) 

d.  Communications 

1.  Base  band  assembly  unit 

2.  Antenna 

3.  Transmitters 

4.  Receiver 

5.  Signal  conditioner 

6.  Diplexer 

7.  Converters  (transmitter  and  receiver) 

e.  Electrical  Power 

1.  Shunt  regulator 

2.  Battery  cells 

3.  Battery  charger 

4.  Discharge  regulator 

5.  Shunt  regulator 

6.  Battery  charger 
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. 7.  Central  control  unit 

8.  Series  load  regulator 

9.  Battery  charger 

10.  Solar  power  distributor 

11.  Power  distributor 

12.  Power  control  unit 

6.2  PRESORT 

A small  program  exists  to  sort  the  data  base  prior,  to  submitting 
a run  for  obtaining  preliminary  spacecraft  designs.  It  will  sort  the  data 
base  according  to  weight,  cost  (data  base  row  46  or  48),  or  reliability. 

A single  digit  in  Column  1 of  a card  (to  be  read  on  unit  5)  determines  the 
sort-variable:  1 = weight,  2 or  3 = cost  (row  46  or  48),  4 = reliability. 

Input  tape  is  expected  on  unit  8.  Output  tape  is  unit  9.  Either  disk  or  tape 
is  acceptable  for  both  input  and  output.  Output  should  be  input  to  the  main 
run.  If  this  presort  capability  is  not  used,  the  order  of  the  data  base  is 
determined  by  technical  performance  as  discussed  in  Paragraph  6.  1. 
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Identification 


1 

ID 

E5.0 

2 

CO 

. A2 

3 

Type) 

3A6 

4 

5 

1 • 

Card  1 

i 

nicai  Characteristics 

6 

, T.P.  1 \ 

7 

2 

8 

3 / 

5E10.0 

9 

4 ( 

10 

5 ) 

11 

6 

12 

7 

13 

8 

14 

9 

15 

10 

8E10.0 

Card  2 

)rmance 

16 

Ave  Pow 

17 

Max  Pow 

18 

Min  Pow 

19 

Nom  Volt 

20 

Max  Volt 

21 

Min  Volt 

22 

C or  1 

8E10.0 

Card  3 

23 

Weight 

24 

Volume 

25. 

Rand  Vib 

26 

N- Rand 

27 

Max  Temp 

28 

Min  Temp 

29 

Press 

Inputs 

8E10.0 

Card  4 

30 

No.  Pow  Cmd 

31 

No.  Other  Cmd 

32 

Time  Tags 

33 

No.  Hi  ’F  Ana 

34 

No.  Hi  'T'  Dig 

Figure  6-1.  Data  Base  Format  (7  Cards/Equipment) 
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Cost 


46 

D.  E.  Cst 

47 

T.  E.  Cst 

48 

Unit  Prod 

49 

Ref  Quant 

50 

Factor 

8E10. 0 I Card  6 


Schedule 


52 

53 

54 

55 


Devei  Const 

Devei  Var 

Qua  I Const  5E10.0  Card  7 

Qual  Var 
State- Art 


Figure  6-1.  Data  Base  Format  (7  Cards /Equipment)  (Continued) 
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7.  RESTRICTIONS  AND/OR  LIMITATIONS 


The  following  tables  detail  both  restrictions  .and  limitations 
of  the  model.  The  first  type  of  restriction  is  that  of  some  configurations 
not  being  compatible  with  the  user  requirements.  Both  analyses  and  actual 
flight  experience  show  that  limitations  exist  for  the  utilization -and  per- 
formance of  each  of  the  Stabilization  and  Control  configurations.  These 
limitations  are  shown  in  Table  7-1.'  The  second  type  of  restriction  is 
that  of  incompatibility  between  subsystems  which  is  shown  in  Tables 
7-2  through  7-8. 


Table  7-1.  Stabilization  and  Control  Configuration  Selection 


Requirements 

Dual 

Spin 

Yaw 

Spin 

Three-Axis 

Mass 

Expulsion 

ME 

with 

CMGs 

ME  and 
Momentum 
Wheel 

Payload  yaw  scan  requirement 

No 

Yes 

No 

No 

No 

Orientation 

Inertial 

Yes 

No 

Yes 

Yes 

j 

Yes  1 

Earth  pointing 

Yes 

Yes 

Yes 

Yes 

Yes 

Sun  pointing 

Yes 

No 

Yes 

Yes 

Yes 

Maneuverability  requirements 

Powered  flight  control 

Yes 

Yes 

Yes 

Yes 

Yes 

Stationkeeping 

Yes 

Yes 

, Yes 

Yes 

■ Yes 

Orbit  correction  control 

Yes 

Yes 

Yes 

Yes  ' 

Yes 

Vehicle  slewing 

No 

Yes 

Yes 

Yes 

No 

Altitude 

185-566  km  (100-300  mi) 

Yes 

Yes 

Yes 

Yes 

— — ? 1 

Yes 

556-46,  300  1cm  (300-25,  000  mi) 

Yes 

Yes 

Yes 

Yes 

Yes 

>46,  300  km  (25,  000  mi)  1 

Yes 

Yes 

Yes 

Yes 

Yes 

Pointing  accuracy 

35-170  mrad  (2-10  deg) 

Yes 

Yes 

Yes 

Yes 

Yes 

3,  5-35  mrad  (0.2-2  deg) 

Yes 

Yes 

Yes 

Yes 

Yes 

0.17-3.  5 mrad  (0.01-0.2  deg) 

Yes 

No 

No 

Yes 

No 

<0.17  mrad  (<0 .01  deg) 

No 

No 

No 

Yes 

No 

Rate  accuracy 

1.7-17  mrad/ sec  (0. 1-1.0  deg/ sec) 

Yes 

Yes 

Yes 

Yes 

Yes 

0.  17- 1. 7 mrad/sec  (0.01-0.1  deg/sec) 

Yes 

Yes 

Yes 

Yes 

Yes 

<0.  17  mrad/sec  (0.01  deg/sec) 

No 

No 

No 

Yes 

No 

Legend: 


Yes  - Configuration  can  be  used 
No  - Configuration  cannot  be  used 


Table  7-2.  Stabilization  and  Control  Configuration  Compatibility 


-j 

I 

LO 


Stabilization  and  Control 
Subsystem  Configurations 

Data  Processing  Subsystem 

General  Purpose 
Processors  . 

Special  Purpose 
Processors 

Dual  Spin  ‘ 

Yes 

Yes 

Yaw  Spin 

Yes 

Yes 

Three-Axis  Mass  Expulsion 

Yes  ' 

* Yes  ■ 

’Mass  Expulsion  with 
Control  Moment  Gyros 

Yes 

No 

Mass  Expulsion  with 
Pitch  Momentum  Wheel 

Yes 

Yes  ) 

Legend: 

Yes  - Compatible 

No  - Incompatible 


Table  7-3.'  Auxiliary  Propulsion  Configuration  Selection 


Input  Requirements 

Cold  Gas 

Monopropellant 

Bipropellant 

Thrust 

< 224  newtons  (<  50  lb) 

Yes 

Yes 

Yes 

224-4450  newtons  (50-1000  lb) 

No 

Yes 

Yes 

> 4450  newtons  (>  1000  lb) 

No 

No 

Yes 

Total  Impulse 

< 4.  4 x 10  newton-sec  (<  104  lb-sec) 

Yes 

No 

No 

4.4x  104  - 2.  2 x 105  newton -sec  (104-  5x  104  lb- sec) 

Yes 

Yes 

No 

2.  2 x 10^  - 8.  9 x 105  newton-sec  (5  x 104  - 2 x 10^  lb-sec) 

No 

Yes 

■ Yes 

> 8.  9 x 10^  newton-sec  (2  x 10^  lb-sec) 

' No 

No 

Yes 

I 


Le gend: 

' Yes 
No 


Acceptable 

Unacceptable 


Table  7-4.  Data  Processing  Configuration  Compatibility 


, Communication 
Configuration 

General 

Purpose 

Processor 

Special  Purpose  Processors 

1 DTU 

2 DTUs 

' ' 

Uplink,  plus  downlink 

Yes 

( 1 Data  Rate 
Computed) 

Yes 

No 

Unified  link,  common  antenna 

t ‘ 

Yes 

( 1 Data  Rate 
Computed) 

Yes 

No 

Unified  "link,  separate  antennas 

t 

.Yes’ 

(1  Data  Rate 
Computed) 

1 

' Yes 

* 

No 

Unified  link,  common  antenna 
plus  downlink  - 

i Yes 

(2  Data  Rates 
Computed) 

No 

Yes 

Unified  link,  separate  antennas 
plus  downlink 

Yes 

(2  Data  Rates 
Computed) 

No 

Yes 

Legend: 

Yes  - Compatible 
No  - Incompatible 


Table  7-5.  Communication  Configuration  Selection 


Configurations 

‘Ranging 
Requi  rement 

Separate 
Mission  Link 
Requirement 

Separate 

Antenna 

Requirement 

Uplink  plus  downlink 

No 

No 

Yes 

Unified  link,  common  antenna 

Yes 

. No 

No' 

Unified  link,  separate  antennas 

Yes 

No 

Yes 

Unified  link,  common  antenna 
plus  downlink 

Yes 

Yes 

No 

Unified  link,  separate  antennas 
plus  downlink 

. Yes 

Yes 

Yes 

Legend: 

Yes  - Acceptable 
No  - Unacceptable 


Table  7-6.  Electrical  Power  Configuration  Compatibility 


—4 


Configuration  . 

Vehicle  Orientation 

Voltage  Requirements 

.Spinning 

. Nonspinning 

Unregulated 

Regulated 

Solar  Arrays  ' 

Body  Mounted 

Yes 

Yes 

l 

Oriented  Paddles 

No 

Yes 

Voltage  Regulation 

' ■ ■ 
' 

Shunt 

i 

• 

Yes 

No 

Shunt  and  Discharge 

Yes 

Yes 

' 

Series 

- 

Yes 

Yes 

Legend: 

Yes  - Compatible 
No  - Incompatible 


Table  7-7.  Vehicle  Shape  Compatibility 


S&C  Configuration 

Cylinder 

Sphere 

Box 

Spinning 

Yes 

Yes 

No 

3-Axi.s 

Yes 

Yes 

Yes 

Legend: 

Yes  - Compatible 
No  - Incompatible 


Table  7-8.  Structural  Configuration  Compatibility 


Structural 

Configuration 

V ehicle  Shape 

Cylinder 

Sphere 

Box 

Monocoque 

Yes 

No 

Yes 

Semi -Monocoque 

Yes 

No 

Yes 

Truss 

Yes 

Yes  ■ 

Yes 

Legend: 

Yes  - Compatible 
No  - Incompatible 
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\8.  ' SAMPLE  TEST  CASE 


Paragraph  8.1  discusses  the  input  variables  to  the  model. 
Paragraph.  8.  2 discusses  values  that  were  used  in  the  sample  test  case. 
Paragraph  8.  3 contains  the  results  of  the  sample  test  case. 

8.  1 USER  INPUT  VARIABLE  LIST 

■Inputs  to  the  model  are  listed  in  Table  8-1.  NAMELIST  names 
are  shown  in  the  parenthesis.  All  NAMELIST  blocks  must  be  in  the  order 

l 

given.  If  the  user  wishes  to  use  the  default  parameters,  the  variables  need 
not  be  entered.  However,  NAMELIST  control  input  must  exist  for  each 
NAMELIST  section.  For  example: 

$ MODE 
$ END 
$ USRSC 
. $ END 


$ USRCS 
$ END 

8.2  ' INPUT  VARIABLES  FOR  TEST  CASE 

Figure  8-1  lists  the  variables  which  were  changed  for  the 
sample  test  case.  Only  those  variables  that  are  changed  from  the  default 
need  to  be  entered. 

8.3  SAMPLE  TEST  CASE  RESULTS  * . 

The  test  case  corresponded  to  the  DSCS-II  satellite.  This  satel- 
lite provides  for  expanded  communications  service  for  worldwide  military 
installations  and  the  National  Command  Authority.  The  satellite  is  drum- 
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shaped.  Two  dish  antennas  on  top  of  the  spacecraft  are  deployed  in  orbit  to 
provide  narrow  beam  coverage.  Conical  horn  earth  coverage  antennas  are 
mounted  on  top  of  the  spacecraft.  An  omnidirectional  command  and  telemetry 
antenna  is  deployed  beneath  the  main' body.  Communications  equipment  is 
mounted  on  a mechanically  despun  platform.  Other  subsystems  are  housed 
in  the  main  body  of  the  spacecraft.  The  test  case  results  are  presented  in 
Figure  8-2. 
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Table  8-1.  User  input  List 


FORTRAN  Name  . Default  Units  ’ * Description 

Gene  ral  (MODE) 


MICRO 

0 

Set  to  0 for  macro,  set  to  1,  2,  3,  4 or  5 
for  micro.  If'0,  program.1  ope  rates  in 
macro  mode.  If  1,  2,  3,  4,  or  5,  pro- 
gram performs  micro  search  for  SANDC, 
AUXPRO,  DPI,  COMM,  or  EP  subsysterr 
respectively.  For  micro  search  on  a 
specific  subsystem,  user  must  restrict 
all  other  subsystems  to  one  configura- 
tion each. 

ISTRT1 

1 

First  of  all  allowable  five  configurations 
to  be  designed  for  the  SANDC  subsystem. 
ISTRT1  and  IEND1  effectively  limit  the 
number  of  SANDC  configurations  whose 
designs  will  be  attempted.  (Must  be 
equal  to  IEND1  for  micro  search  on 
another  subsystem.) 

IEND2 

5 

Last  of  the  allowable  five  configurations 
to  be  designed  for  the  SANDC  subsystem. 

ISTRT2  1 

‘ 1-3 

V 

IEND2  j 

As  above  for  auxiliary  propulsion 

ISTRT3  ) 
IEND3  | 

ISTRT4  ] 

> 1-2 
1 

As  above  for  data  processing  and 
instrumentation 

1 , 

> l-5 

i 

As  above  for  communications 

IEND4  j 

[. 

| ,-3 

l 0“1 

As  above  for  electrical  power 

ISTRT5  ] 

IEND5 
ISTRT6  | 

As  above  for  vehicle  sizing 

IEND6  l 

ISTRTR 

As  above  for  reliability 

IENDR 

- 

Stabilization  and  Control  (USRSC) 

DPHI 

.25 

deg 

Main  engine  alignment  to  thrust  axis 

FE 

4.  1 

lb 

Thrust  (translational) 

TSMALL 

100. 

sec 

Main  engine  burn  time 

3tNU 

3. 

— - 

Control  system  efficiency 

PDOTO 

1. 

deg/scc 

Maximum  initial  rate 

TAUX 

! 62208000.  . 

TAUY  j 

62208000. 

sec 

Times  that  disturbance  torques  arc  in 
effect 

TAUZ  j 

62208000. 

T 

24. 

mo 

Mission  lifetime 
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Table  8-1.  User  Input  List  (Continued) 


FORTRAN  Name  Default  Units 


Description 


Stabilization  and  Control  (USRSC)  (Continued) 


PHIRX  ] 

.75 

PHIRY 

.75 

l 

deg 

Required  accuracy  on  roll,  pitch,  and 
yaw  axes 

PHIRZ 

1 

PDOTX  ] 

i 1. 

PDOTY 

' 1. 

deg/ sec 

Maximum  maneuver  rates 

PDOTZ 

XN  ] 

1 X- 

YN 

1 

1. 

1 

--- 

Number  of  maneuver  about  roll,  pitch, 
and  yaw  axes 

ZN 

1 1. 

PDOTRX 

.012 

PDOTRY 

.012 

deg/sec 

Required  system  rate  accuracy 

PDOTRZ 

.012 

OMEGS 

1.5708 

rad/ sec 

Spin  rate  about  yaw  axis  (applies  only  to 
yaw  spin  configuration) 

OMEGR 

60, 

rpm 

Spin  rate  of  rotor  (applies  only  to  dual 
spin  configuration) 

PJ 

75. 

slug/ft^ 

Platform  spin  axis  inertia  (applies  only 
to  dual  spin  configuration) 

XKN 

21. 

days 

Time  between  spin  axis  corrections 
(applies  only  to  dual  spin  configuration) 

K 

1 

0 if  errors  for  spin  axis  relative  to 
nadir;  1 if  errors  for  payload  relative 
to  nadir  (applies  only  to  dual  spin  con- 
figuration) 

M AN  V 

1 

1 = power  flight  control, 

2 = station  keeping, 

3 = orbit  correction  control, 

4 = vehicle  slewing 

IPAWAW 

0 

— 

0 to  1 for  payload  yaw  required  (no  or 
yes) 

EP1 

.0001 

deg / sec 

Maximum  programmed  pitchover  rate 
(applies  only  to  three-axis  mass 
expulsion  configuration)  ’ 

AX 

I .05 

Misalignment  errors  in  mounting  inertia 

AY 

.05 

deg 

measurement  units  (applies  only  to 

AZ 

1 .05 

three-axis  mass  expulsion  configuration) 

EA 

o.  io- 

deg 

Autenna.misalignment  (applies  only  to 
pitch  momentum  bias  configuration) 

EANT 

0.  1 

rad 

Antenna  elevation  (applies  only  to  pitch 

momentum  bias  configuration) 
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Table  8-1. 

User  Input  List  (Continued) 

FORTRAN  Name 

Default 

Units 

Description 

Stabilization  and  Control  (USRSC)  (Continued) 

• 

ALPHA 

• 12.0 

deg 

Thruster  offset  in  roll- yaw  plane  (applies 
only  to  pitch  momentum  bias  configura- 
tion) 

TL 

1.0 

day 

Time  between  unloading  wheel  momen- 
tum (applies  only  to  CMG  configuration) 

T AC CEL 

20.0 

sec 

Acceleration  time  for  maneuvering 
(applies  only  to  CMG  configuration) 

XNNN 

4.0 

— 

Number  of  single  gimbaled  gyros 
(applies  only  to  CMG  configuration) 

THOLD 

100000. 

min 

Time  vehicle  in  inertial  hold  (applies 
only  to  CMG  configuration) 

PDOTAV 

0.01 

deg/sec 

Average  body  rate  for  low  orbit  when 
high  accuracy  is  required  (applies  only 
to  CMG  configuration) 

PDTST 

0.0667 

deg/sec 

Maximum  rate  at  which  star  informa- 
tion is  obtained  (applies  only  to  CMG 
configuration) 

PHIFOV 

40.0 

deg 

Maximum  range  of  attitude  freedom  re- 
quired to  track  specific  stars  (applies 
only  to  CMG  configuration) 

IS  AT 

Earth  painting  flag.  Equivalent  to 
ISATQR  in  Thermal  (do  not  input) 

Auxiliary  Propulsion 

(US  RAP) 

. 

CLIFE 

50,  000. 

cycles 

Cycle  (or  pulse)  life 

BTRMX 

1.024xl06 

bit/sec 

Maximum  bit  rate 

SLSFL  ’ 

0. 

Special  command  synchronization  flag 
(0  means  no  synchronization  required, 
1 means  synchronization  required) 

TPRFL 

0. 

Telemetry  processing  flag  (0  means 
telemetry  processed  separately,  1 means 
otherwise) 

OPS  MS 

0. 

ops/sec 

Number  of  mission  operations 

ARRAYN(11,  3) 

0 

--- 

Mission  data  for  up  to  three  (3)  equip- 

ments: 

Power  switching  commands 
Other  commands 
Time  tagged  commands 
High  rate  telemetry 

Number  of  analog  points 
Number  of  digital  points 
Sample  rate  (sec  ) 
Word  length  (bits) 

Low  rate  telemetry 

Number  of  analog  points 
Number  of  digital  points 
Sample  rate  (sec  ) 

Word  length  (bits) 
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Table  8-1.  User  Input  List  (Continued) 


FORTRAN  Name 

Default 

Units 

Description 

Auxiliary  Propulsion 

(USRAP)  (Continued) 

MIS  P D 

0 

— 

Mission  data  processing  flag  (1  means 
processing  required,  0 means  no  such 
processing  required) 

NMSEQ 

0 

— 

Number  of  mission  equipment  (maximum 
of  3) 

Communications  (USRCM) 

IOPTCM{3) 

0.0.0 

... 

IOPTCM(l)  is  ranging 
IOPTCM(2)  is  separate  link 
IOPTCM{3)  is  separate  antenna 
(0  or  1 for  no  or  yes) 

LSGLS 

1 

— 

Link  SGLS  flag-(0  = no,  1 = yes) 

LrUSB 

0 • 

— 

Link  USB  flag  (0  = no,  1 = yes) 

FREQX(2) 

2250.,  2250 

MHz 

Frequency  of  downlink  transmitters 
(Second  number  refers  to  separate 
downlink) 

APOGEE 

500. 

nmi 

Apogee  (must  be  less  than  or  equal  to 
ALT) 

NET 

1 

— • 

1 = NASA  net,  0 = AFSCF  net 

NADIR 

0 

— 

Nadir  coverage  flag  (0  = no,  1 = yes) 

FREQR 

1800 

MHz 

Receiver  frequency 

C OMR  AT 

1000. 

baud 

Receiver  command  rate 

BWIDTH(2) 

-1.E10,  -1.E10 

Hz 

Bandwidth  for  transmitter  .(default  values 
are  flags  that  cause  bandwidth  to  be 
computed  as  a function  of  bit  rate) 

Electrical  Power  (USREP) 

OPTEMP 

15. 

°C 

Battery  temperature  . 

I VOLT 

0 

Flag;  0 = voltage  need  not  be  regulated 
1 = voltage  regulated 

Vehicle  Sizing  (USRVS) 

EQPF 

2. 

— - 

Equipment  packing  factor 

MB12SH 

1 

— 

Mission  equipment  bay  shape  (1  means 
cylinder,  2 means  box) 

EQM1XL 

40. 

in* 

No.  1 mission  equipment  bay  length 

EQM1YL 

40. 

in. 

No.  1 mission  equipment  bay  width 

EQM1ZL 

40. 

in. 

No.  1 mission  equipment  bay  height 

EQM2XL 

40. 

in. 

No.  2 mission  equipment  bay  length 

EQM2YL 

?°* 

in. 

No.  2 mission  equipment  bay  width 

EQM2ZL 

40. 

in. 

No.  2 mission  equipment  bay  height 
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Table'  8-1.  User  Input  List  (Continued) 


FORTRAN  Name 


-<  < - 
Default 


Description 


Vehicle  Sizing  (USRVS)  (Continued) 


ISBOFG 

0 

. 

Solar  array  boom  orientation  (0  means 

. 

' 

not  oriented,  1 means  oriented) 

NUMEEQ 

0 

. 

Number  of  external  equipments  (maxi- 
mum = 9) 

EEQWT(9) 

0 

lb 

External  equipment  weight 

EEQVL{9) 

0 

ft3 

External  equipment  volume 

EM1YCG 

0 

. in. 

EM1ZCG 

0 

in. 

Mission  equipment  CGs  relative  to 
equipment  bay  interface 

EM2YCG 

0 

in. 

EM2ZCG  s • 

0 

in. 

CGEEX(9)  ‘ 

2. 

--- 

Location  of  external  equipment  (1  means 
front,  2 means  center,  3 means  aft  end) 

EELOC(9) 

3. 

... 

Location  of  external  equipment  (1  means 
right,  2 means  left,  3 means  top,  4 
means  bottom) 

XCGSA1 

1. 

--- 

Location  of  solar  paddles  (1  means 
front,  2 means  center,  3 means  aft  end) 

XCGSA3 

1. 

Location  of  body  mounted  solar  array 
(1  means  front,  2 means  center,  3 
means  aft  end) 

Miscellaneous  (USRI) 

EQM1WT 

435. 

ib 

Mission  equipment  weight  (must  be 
zeroed  out  if  there  is  no  EQM2) 

EQM2WT 

435, 

lb 

Mission  equipment  weight  (must  be 
zeroed  out  if  there  is  no  EQM2) 

DIAMAX 

120. 

in. 

Maximum  satellite  diameter 

ALT 

500 

nmi 

Altitude 

Thermal  (USRTH) 

. . . 

, 

IS  AT  OR 

1 

1 earth  oriented,  2 sun  oriented, 
3 inertially  oriented 

ORBINC 

28.5 

— 

Orbital  inclination 

Reliability  (USRRE) 

KEOPT 

1 

— 

Expense  option  indicator  (1,.  expense  is 
weight;  otherwise  expense  is  cost) 

R FIX  ED 

1.0 

— 

Initial  system  reliability  (mission  equip- 

ment  reliability  is  set  by  an  interval 
variable  RFNL) 
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Table  8-1.  User  Input  List  (Continued) 


FORTRAN  Name 

Default 

Units 

Description 

Reliability  (USRRE)  [Continued) 
SYSLB  • .0.0 

lb 

Initial  system  weight  (should  include  a 

SLBMX 

50000.0 

lb 

estimate  of  all  fixed,  e.g.,  structural, 
weight) 

Maximum  system  weight 

ISPT 

. 0 

— 

Single  point  failure  requirements  option 

ISUB 

0 



(0  - not  in  effect,  otherwise  in  effect) 
Subsystem  requirements  option  (1  = 

SPECl* 

18. 

mo 

at  least  one  subsystem  has  a reliability 
spec,  otherwise  no  reliability  specs 
on  subsystems) 

Mean  mission  duration  system  require- 

SPEC(l)** 

.9 

ment 

R(TRUNC)  requirement  for  SANDC 

SPEC(2)** 

.9 

subsystem 

R{TRUNC)  requirement  for  AUXPRO 

SPEC  (3)  ** 

.9 

... 

subsystem 

R(TRUNC)  requirement  for  DPI  sub- 

SPEC (4)#* 

.9 

M — _ 

system 

R(TRUNC)  requirement  for  COMM  sub- 

SPEC(5)*" 

.9 

... 

system 

R(TRUNC)  requirement  for  EP  sub- 

SPEC(6)-:* 

. 6 

— 

system 

R(TRUNC)  requirement  for  system 

Schedules  (USRSK) 
SKDME(7,  3) 

0 

mo 

Schedule  data  for  up  to'three  mission 

equipments: 

(1)  Design  engineering  cost  ($1000) 

(2)  Test  and  evaluation  cost  ($1000) 

(3)  Development  lead  time  constant  (mo) 

(4)  Development  lead  time  variable  (mo) 

(5)  Qualification  lead-time  constant  (mo) 

(6)  Qualification  lead  time  variable  (mo) 

(7)  State-of-art  factor  (dimensionless) 

Structures  (USRST) 

CA 

io; 

g 

Axial  acceleration 

GE 

5. 

g 

Lateral  acceleration 

Costs"  (USRCS) 

NFV 

4 

Number  of  flight  vehicles 

NQV 

1 

Number  of  qualification  vehicles 

*I£  SPEC  1 s 0. 1,  MMD  MODE  is  skipped  in  RELY 
**lf  SPEC{K)  £ 0.00001,  R{TRUNC)  MODE  is  skipped  for  subsystem  K in  RELY 
***R(TRUNC)  = reliability  at  the  end  of  mission  life 
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Table 

, * 

8-1.  User  Input  List  (Continued) 

FORTRAN  Name 

Default  Units 

Description 

Costs  (USRCS)  (Continued) 

. • - . . 

XMER  • 

o.- 

y -v  ' T 

Mission  equipment  DDT&E  cost 

SMEU 

0. 

$ 

Mission  equipment  average  unit  cos 

FEEPCT 

0.07 

Contractor's  fee  percentage 

IMETYP 

2 

Mission  equipment  type  (1  means 
communications,  2 means  Earth  . 
Observatory) 

8-9 


fiMODF 

MTCRn=0,  I EN06=  1 » I STRT3=2»  I STRT  2=2  » I ENDS— 2 * I STRT4=2  ,ISTRT5=2, 

&e-Mr  

CUSPSC 

FF=3 .5,TSMAt!'  = 71.7»r  AUX=  1. 578E]  0,  TAU Y=  l . 578F  10,TAUZ=1.  578EI0t 
T=£o.  ,PHIRX=.893,>HIRY=.393»"PH!RZ=,3'93  ,OMFGS=. 00000 1, 
CMEGR=58.,PJ=71., 

F.PND 
SUSPAP 
r,r  MP 
r.uspnp 

APR AY M {It l ) = 1 6 • t ARP AYN( 8,1 )=68. f APPA YN( 9, 1 j =1 6. , ARR A YN { 10,1) =.0075 f 

APR  AY  N(  ] 1,  l)=P.tN!MSFO=l», 

CF*’D 

CUSRfM  ... 

I OPT  CM { 1 ) ={ , IMSSEP=1  » APDGEE= 19322-.9tNET=0»NADTR  = l « 

EFNP 

r.usppp 

CTND 

snspvs 

F QPT  X L=48.  4»  r OM l YL=  1 08  .?  » E 0M1 ZL - 108 . 2 1 EQM2 XL  = 0.  , EQM?YL=0.  » E0M2ZL  =0.  » 
XCGSA3=2. , 

SFF'P  . • . 

CUSP  I 

FQM1WT=400., F0H2WT»0. 1 01  AM AX= 108, , ALT= 19322.9, 

CFNn 

fil'SRTM 
npRT  MC=0. t 
F.Ff'n 
6USPPE 

SI.3MX=2  65  0.f  ISPT=1,SPFC1=38.,SPEC{6  )= . 236 , R F I XED=  . 6, 

SFNH 
CUSP  c K 
fiFND 
CUSPS  T 
r.FFn 
CUSRCS 

NF  V=fc  t NOV=  ltXMFR=3«?3E7tXwEU=3»3AF6t  FFEPCT  -■»  07  ♦ I MET  YP=  1 * 

SEND 


Figure  8-1.  Input  Variables  for  Test  Case 
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DATA  PROCESSING  AND  INSTRUMENTATION  <NC0NF(31I 
NCONF1 3 1=1  IS  GENERAL  PURPOSE  PROCESSOR 


NCONF(4)=Z  IS  UNIFIED  LINK-COMMON  ANTENNA 
NC0NF(t)=3  IS  UNIFIED  LINK-SEPARATE  ANTENNA 


ELECTRICAL  POWER  INCONF15H 

NCGNFf  B)  = l IS  SHUNT  REGULATION  - PADDLE  HTD. 


NCONF<5>=3  IS  SHNT  ♦ DISCH.REG  - PADDLE  NTD. 
NCQNFf 3)=4  IS  SHNT  *■  DISCH.REG.  — BODY  NTD. 
-NCONr<M«5  IS  SERIES  LOAD  REG.  — -PADDLE -HTPy- 
NCONF ( 5 1 =fc  .IS  SERIES  LOAD  REG.  - BODY  NTD. 


NCONF(*)=S  IS  UNIFIED  LINK-SEPARATE  ANT  ♦ DOWNLINK 
VEHICLE  SIZING  (NC0NFI6U 


NC0NFC6I=2  IS  BOX 
MCONF (6|*3  IS  SPHERE 

RELIABILITY  . ; 

REDUNDANCY  CONFIGURATION  * 0 IS  SINGLE  STRING 
REDUNDANCY  CONFIGURATION  * 1 IS  DUAL  STRING 


MESSAGES  < IEKR) 

S-TAfl-Itl-ZATION  AND -CONTROL AUXILK 

I ERR  = .0  MEANS.NO  MESSAGES  I ERR 

I ERR. = 1 MEANS  MAX  ALLOWABLE  SYS.  ERROR  UNSAT.  I ERR 

ItRR  IX -MEANS  MAX  RATC  ERROR  TOO  SMALL 

I ERR  - IXX  MEANS  3-AXIS  WHEELS  ACCEPTABLE  ' IERR 

IERR  = IXXX  MEANS  DSL  GIMB.CMGS  ACCEPTABLE 


IERR . = 0 MEANS' NO  MESSAGES 

IERR  = ' 1 MEANS  MUX  REQUIRED 


= 100  BIT  RATE  IS  TOO  LARGE 

= 1000  SPEC. COMD. SYNC. FLG  NE  0 


VEHICLE  SIZING 

rtRR  =0  MEANS  NO  MESSAGES 


0 MEANS  NO  MESSAGES 

1 MEANS  CYCLE  LIFE  OF  ATTITUDE  AND  CONTROL 

THRUSTERS- IS  TOO  SHORT 

10  MEANS  CYCLE  LIFE  OF  TRANSLATIONAL  THRUSTER 
IS  TOO  SHORT 


TOO  SHORT 


THERMAL 


XIXXXXXXXX 


XX1XXXXXXX 


IN  RADAB 

MEANS  QSR.  CONV.  AND  VARIABLE  CONO 


■I  * f * 


MEANS  PHASE  CONTROL  MASS  IS 
SUPPLIED  IN  PCM 


EXCEEDS  EQUIPMENT  BAY  LENGTH 


= XXXX1XXXXX 


XXXXXX1XXX 

XXXXXXX1XX 

XXXXXXXX1X 


MEANS  DIODE  HEAT  PIPE  IS  REQUIRED 
(2  REQUIRED I 


MEANS  OSR  RADIATOR  IS  REQUIRED 
MEANS  CONV.  RADIATOR  IS  REQUIRED 
MEANS  HEATER  POWER  IS  SUPPLIED 
IN  HTRPWR 


Figure  8-2.  Sample  Test  Case  Results 


ZI- 


00 


SYSTEM  DESCRIPTION  DESIGN  NUMbFR  I 

STABILIZATION  ANO-CONTROL  - 

CONFIGURATION  IDENTIFIER  I 

EQUIPMENT  CODE  IDENTIFIER  101  202  302  <*01 

EQUIPMENT  QUANT  WES  • - — 2 -5-  -2 

CALCULATED  ACCURACY  C.7500E  OO(DEG) 

I ERR  0 

AUXILIARY  PROPULSION 

CONFIGURATION  IDENTIFIER  2 

EQUIPMENT  CODF  IDFNT 1FIEP  b07  1.07  901  1001 

EQUIPMENT  QUANH-TEES  fc2 4-  - -7 ** 

TOTAL  IMPULSE  0.18426 

I ERR 

DAT*  PROCtSSTNG-  ■ 

CONFIGURATION  IDENTIFIER  2 

EQUIPMENT  CODE  IDENTIFIER  201 

EQUIPMENT-  -QUANTITIES — 2~ 

COMPUTFR  OPERATIONS  RATE  0.0 
I ERR 

COMMUNICATIONS 

CONFIGURATION  IDENTIFIER  - 2 

■EQUIPMENT  CODE  'IDENTIFIER  101  201  301  *01 

EQUIPMENT-QUANT ITI E S » 3 g-  - — 3 3 

ENGINEERING  DATA  RATE  0.1000F  Gif  KBPS) 

MISSION  EQUIPMENT  DATA  RATF  0.0  = (KBPS  1 

FLECTR IS  AL  POWER 

CONFIGURATION  IDENTIFIER  2 

EQUIPMENT  CODE  IDENTIFIER  101  205  301  1201 


501 

3 


499 

2 


601 

3 


:oi 

1 


701 

2 


1102 

7 


601 

3 


503 


05 (LB— SEC ) 
0 


(IPS) 


1401 
1 3 


701 

1 


1201 

1 


602 


601 
- 2 


701 

2 


702 

2 


FQUIPMENT-QUANTTTTES 

TOTAL  AVpRAGE  POWER  REQUIREMENT 
SOLAR  ARRAY  AREA 


0.1815E  03 (WATTS) 
0.7S67E  02(FT**2) 


TKFRMAL  CONTROL 
■ RAUIaTUR  AH  (A 

* HEATER  POWER 

HEAT  PIPE  

I err 


-C.4r.90E  01  (TTf.2)  . BATTERY  RADIATOR'  AREA 

-TtlTAt-R A Di-ATQR  AREA 


0.3066E  03  (BTU/HR) 


lioooioni 


, battery  heater  power 

TOTAL  HEATER  POWER 
t~ VAR-tAfttS  CONDUCTANCE  tt.P. 
TOTAL  HEAT  PIPE 


601 

1 


0.ll32r  01  ( FI»*2 ) 

0.5722E  OI  ( FT  **2) 
C.llOOF  03  (BTU/HR) 
0.4166E  03  (BTU/HR) 
0.2723c  04  (BTU/HR) 
0.30P1E  06  ( bTU/HR ) 


Figure  8-2.  Sample  Test  Case  Results  (Continued) 


Om&NAL  PAGE  IS 

OF  POOR  QUALITY!  8-13 


STRUCTURES 

SKIN  THICKNESS  -■-0«f)350E-02<IN) _ 

STRINGER  NO, THICKNESS* HT  420.,  0.I587E-01  (IN),  0.31I2E  00  (IN) 

FRAME  NO,  THICKNESS,  HT.  5.,  0.6300E-01  (IN),  0.6942E  00  (IN) 

- CND  COVCR  THICKNESS FORWARD — 0.-2857E  OO(FN) , CENTER — OrO (IN), AFT  0.20S7E  OO(IN) 

VEHICLE  SIZING 

CONFIGURATION  IDENTIFIER  1 

LAUNCH  WC-TGHT-,-0il976E  04 ( LBS)  , LENGTH 0.8664E  02(IN)  , — 

WIDTH  0.6197E  02(IN),  HEIGHT  0.6197E  02  (IN), 

IXX  0.781XE  06  (LB— IN**2 ) , IYY  . 0.1365E  07  (LB-~IN**2),  IZZ  0.I365E  07  (LB-IN**2) 

TERR 1 ; 1- — _ 

SAFFTY, 

REDUNDANCY  CONFIGURATION  0 


MEAN  MISSION  DURATION  0.3922E  02(M0)-,REHABILTTY  0^2464fc-  00?RELlABIL-i-TY-TRUN&AT-I0N  TIME  0. 60631- 0Z( HO) 
COST  (ALL  AMOUNTS  ARE  IN  DOLLARS) 

DDT«€  INVESTMENT (RECURRING) 


— DESIGN  ENGINEERING 1 

TEST  AND  EVALUATION 
TOOLING  AND  TEST  EQUIPMENT 

OHii  f tv  f ran  TP  m — . - r. 

5008816.0 

0.0 

UNIT  ENGINEERING rr~ 

UNIT  PRODUCTION 

TOOLING  AND  TEST  EQUIPMENT 

2275250.0 

2661070.0 
0.0 

SYSTEMS  ENGINEERING  AND  INTEGRATION 
PROGRAM  MANAGEMENT 

iTfKT  fiTCPnOV . _ 



3928610.0 

1629812.0 

SYSTEMS 

PROGRAM 

Tjwnunr 

ENGINEERING  AND  INTEGRATION 
MANAGEMENT 

41)66  76.4 
1313515.0 
485518,8 

SPACECRAFT 
MISSION  EQUIPMENT 

TflTAi — mvi  run 

19439936. 

32300000. 

" INVESTMENT 
42852176. 
20040000. 

OPERATIONS 

* QUALIFICATION  UNITS 
G*S«E* 

7142031. 
‘ 2285763. 

< 

FLIGHT  OPERATIONS 
CONTRACTOR  FEE 

2020739. 

2999652. 

165)313:  ■ — 

744660. 

schedule 

DESIGN  AND  COMPONENT  DEVELOPMENT  TIME 

I4.MMONTHS) 

2SO6043* 

COMPONENT  QUALIFICATION  TIME 
SUBSYSTEM  QUALIFICATION  TIME 

9*4( KOH? H5 I 
14.1 (MONTHS) 
8 .2( MONTHS ) 

uLfLuJPflLNI  AKU  rUbHI  RCAUinCSS1 
SCHEDULE  DURATION  (TO  LAUNCH) 

’fiME  " "42  «3(  MONTHS! 
, 74*3< MONTHS) 

Figure  8-2.  Sample  Test  Case  Results  (Continued) 
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‘9.  SOURCE  CODE  LISTING  ' 

The  following  is  a listing  of  the  Systems  Cost/Performance 
Computer  Program. 
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LEVEL  21.7  ( JAN  73  J 


0S/360  FORTRAN  H 


COMPILER 


ISN  0002 


'ISN  0003 
ISN  QQ04 
ISN  0005 

ISN  OOOo 
ISN  0007 


ISN  0012 
ISN  0013 
ISN  0014 
ISN  0015 

Ts n ooife 

ISN  0017 


ISN  001b 


1.SN  C019 


OPTIONS  - NAME  = MAIN, OPT =01,LINECNT=41,SIZE=G000K, 

SOURCf , EBCDIC, NOLIST fUODtCK, LOAD, NOMAPfNOEOlT, ID, NOXREF 
THIS  IS  THE  MAIN  DRIVER 

IT  SEQUENCES  ALL  SEGMENTS  OF  CODINS, HANDLES  I/O, SETS 
C0NF1GURAI IONS 

COMMON/USER  I/DPHI,Ft.,TSMALL,XNU,PD0TO,TAUX,TAUYtTAU2,T,  

*PHTRx7PH1\Y,  PHlR'i,PD'JTA,PDdtY,PDOTZ,XN,YN,ZN,POOTRX,PDUTRYt 
SPOGTRZ.GMPGS.OMtGk.PJ.XNN.K .MANV.IPAWAH.EP1.AX.AY *AZ* 


00000010 
00000020 
00000030 
00000040 
00000650 
00000060 
00000061 

► uummapj  /uiCKi/i  mstjunre  00000070 

* COMMON  /USER3/dTRMX,SCSFL,TPKFL ,OPSMS*ARR AYNf 11,3 J ,MMSEQ  00000080 

COMMON  /USER 4/1 OPTCM 131 , IMSSEP,  lSfcQ*LSGLS,LUS8  *FREQ(2,I , APOGEE,  ■ 00000090 

: * NK:T,NADIR,FREaR,C6MRAI,BWlDTH(2)'  00000100 

COMMON  /USER5/IVOLT,OPTEMp  0000011C 

COMMON  /USERo/bQPF,MDliSH,fcWMlXL,fcUMlYL,EQMlZL,EQM2XL,EQM2YL,  00000120 

EQM2ZL, I SB0FG,NUMEE Q,EEQWT { 9) »£EQVL 19) , EMIYCG,£M1ZCG,EM2YCG,  "*  00000130 

* &M2ZC6»CGEtX(9 ) tEELOC (9) ,XCGSA1,XCGSA3  00000140 

COMMON  /USER7/1 SAT DR,ORB INC  . . OOOOOi^O, 

COMMON  /US£Ro/SKh'ML(7,3)  ' ‘ 00000.155 

COMMON  /USC  R9/CA , Cfc  . 00000157 

CO  mm  /lTWN/WT  ,VUL,DT,D,DX,DY,DZ,XJ,YJ,ZJ,RJ#FF,Tl,PL,PLMINf  00000160 

* LMHDt, ARE  A ;SAtLG,WAfE,NC;'ACSWP,HARNWT,THCMMT,c6NVNT,TNKWT,PASSTR, 6o666I70 

* S ATT  WT,  I PRIM,  I &TLQC,RADA*  RAOAB,RAT «.HTRPWR»HTRPRB,  00000180 

* HPT,HTPlPE,VLHp,HfPT,FC,XNZtR0,C0MRT,ACSSN,BmATC2i,  00000190 

'*  TQLL>.,SAfcOLG",SATWr  ' ' 000P0191 

COMMON  /DoCUrt/lDb ( 30 ) *DATAb( 55, 90 ) 00000200 

COMMON  /USLK1/E0K1WT,EC'M2WI,D1AMAX,ALT  . 00000210 

COMMON  /USERR/KEOPT, SYSLB tRFIXED, SLBMX, ISPT, SPEC! SlfSPECl , ISUB  00000220 

COMMON  /CHCSf /I CHOSE (60) ,NCHOSE <60 ) ,COST (5,60), RE L < 6,60) ,THfo  {,4  ,60)00000230 

* »DPIA{ 11 *60) ,SKD (7*60)  ' 00000240 

COMMON  /USERC/NbV ,N£{V,XM1ER ,XMFU,FEEPCT, IMFTYP  ~ " “ 00000242 

COMMON  /PRTC0H/ACCRCY,C1 STAR ,1REL, MMDOLD,TRUNC, ITRUNC ,DE ,TE , 00000245 

* TOOLR, QCR, St JR,PKR, PE ,PU, iOOLU,QCP»Sfcl P, PMP.SATR , SAI IKV ,MER , 00000246 

' * M£INV,PAYR,?AYINV,PAYQULtSS£fXLTOI ,CTGT»FEER*FEEINV, ODTE, XVEST , 00000247 

* OPS  ,SKTAU(6),ROL0(60)  ,TTT , ASt,TS,8S,  AM,TF,  8F,TC,TA,  TB,  TO  TOPS  OO0OC248 

DIMENSION  NC0NF{6 ) *N£QUIP ( 5)  » IERRI7) ,IPI€1 (3 ) * 1PIC2C9) ,IPIC3( 2 } , 00000250 

'*  IPIC4I9  i ,IP1C5I57  ,ICHOSU9i  ilCH0S2C  141 , ICH0S3 (2 ) ,ICH0S4(11)  , 00000260 

*ICH0S5(b)  ,NCH0Sl(9)  ,NCHUS2U4J  iNCnOS3(2)  tNCH0S4«ll»  ,NCHOS5t5»  00000270 

NA M£ C1S1  /MODE/MICRU,  ISTRT  1,1EN01,1  STRT2,IEND/:,ISTRT3,iEND3,  00000280 


00000240 

00000242 

00000245 

00000246 

00000247 

OOOOC248 

00000250 

00000260 

00000270 

00000280 
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. ISN  0020 

V *ISTRT4tI£ND4,ISTKT5,lEND5,ISTRT6,IEN06*ISTRTR*IFNDR  ** 

NAMEL1 ST/USRSC/DPHI » FE  » TSMALL  • XNU  • PDOTC  »T*UX  *,TaUY  « TAUZ  *T  » 
*PHIRX,PHlRYtPHlRZtPOaTX»pDbTY,POOTZtXN,YNf  ZNtPDOTRX.PDOTRY*"' 

00000290 

00000300 

00000310 

r + 

ISN  0021 

*P0UTRZ»GME&S.GMEGR,P4*XNN,K,MANV,IPArfAW,Lpif AX»AY,AZ. 

* € A , t ANT  , A LpHA  , Tl  # T ACCEL*  XNlNN  » THO  tOrPOOTA  V * PDOTST  » PHIFOV 
NAME LI  ST  /USRAP/CLIFE 

00000320 

00000322 

00000330 

V 

ISN  0022 
XSft  0023 

NAMELIST  /USRDP/BTRNX*SCSFL*TPRFL*QPSNS*ARRAYN»HISPD*NMSEQ 
NSAMELIST  /USRCM/lGPTCMtIrtSSEP*LSOLS*LUSB» FREQ* APOGEE* NET* NADIR*. 
* FRFQR,C0MRAT*8WIDTH 

00000340 

00000350 

00000360 

* 

ISN  0024 
ISN  0025 
ISO  0026 

NAMELIST  /USREP/I VQLT*OPTEMP 
NAMELIST  /USR FH/I SATOR  jORBINC 

NAMELIST  /USRR£/KEOPT,SYSLfc*RFIXcD»SLbMXf ISPT « SPEC »SPECI *ISUB 

00000370 

00000380 

00000390 

ISN  002T 
ISN  0028 

NAMELIST  /U$RCS/NFV.NQV.XMER»XMfcU»FEEPCT»lHETYP 
NAM6LlST/USRVS/t0PF,MO12SM,EQMlXL,ESMlYL,EQNlZL,EQM2XL,EQM2YL» 
* 60M2ZL,IS80F&tNUMEEQ,E£CWT»fcEOVL*EMlYCG»EHIZCE*fcM2YCG* 

00000392 

OGOO040Q 

00000410 

4 

v i. 

ISN  0029 
ISN  0030 

* EM2ZCG* CGEtX  » EELOCtXCGSAl »XCGSa3 

namelist  /usrsk/skdme 

NAMELIST  /USRST/CA.CE 

00000420 

00000425 

00000427 

ISN  0031 

NAME LI  ST /USRI XEQMlWTt FQM2HT  »D2AMAX»ALT 

00000430 

- 

ISN  0032 

DATA  NE0U1P,NACC6P/o*0/ 

00000440 

ISN  0033 

DATA  ISTRTl,IEN!0i*lSTRT2»I£ND2*ISTRT3,IEND3*ISTRT4»IENb4,ISTRT5t 

OOOGG450 

^ ISN  0034 
ISN  0035 

*IEND5*ISTRT6, ltND6*ISTRTR,ltNDR/l,5,l,3*I,2,1.5»l*6,l,3,0,l/ 
DATA  ITESTltlTESr-c*irtsr3,lTEST4,ITESl5/9,I4,2*ll»5/ 

READ.  (5, MODE)  1 

00000460 

00000470 

00000480 

* 

ISN  0036  . 
ISN  0037  • 
ISN  0038 

READ  T5» USRSC ) 
READ  (5*USRAP) 
READ  |5,USRDP> 

00000490 

00000500 

00000510 

© © 

ISN  0039 
ISN  0040 
ISN  0041 

READ  (SfUSRCM* 
READ  (StUSREP) 
READ  (5.USRVS) 

00000520 

00000530 

00000540 

w t; 

ISN  0042 
ISN  0043 

READ  ( 5*  USRII 
READ  (5,1/SRTH) 

00000550 

00000560 

ra aw  s 

f s' 

gfe 

ISN  0044, 

READ  (StUSRRE) 

00000570 

ISN  0045 
ISN  0046 
ISN  004? 

READ  t£,USRSK) 
READ  ( 5f OSRST) 
READ  (5..USRCS) 

00000575 

00000577 

00000578 

• 

ISN  0048 

TTHST=FE 

00000580 

l$ti  00*9  ISEQ=ISATOR  ' 00000590 

ISN  0050  IREL-ISTRTR  ' ' 00000600 


ISN  00 
ISN  0053 
"ISN  0054 
ISN  0055 
ISN  0056 
ISN  0057 
ISN  0058 
ISN . 0055 
ISN  0060 
ISN  0061 
ISN  0062 
ISN' 0063 
ISN  0064 
JSN  00t>5 
ISN  "0067 
ISN  0068 
ISN  0069 
"isrT  0070 
ISN  0071 
ISN  0072 
ISN  0073 
ISN  0074 
ISN  0075 
ISN" 0076 
ISN  ’0077 
ISN  0076 

ISN  0081 
ISN  0082 
TSn  oo 1 3 
ISN  0084 
ISN  0085 


0088 

0089 

0090 

0091 

0092 


ISAT=1  SATOR  ' ~ ~~ 

2 00  1 H=2STRT1,IC-ND1 
DO  1 I2=ISTRT2,ItND2 

DO  l I3=ISTRT3»TeND3  " ' ~ 

DC  i 14— I$TRT4*IfcND4 
DO  1 I5=ISTRT5,IEN05 
“ DO. I-  I6=ISTRT6,IEND6  ~ ~ ” 

NCaNF(l)=U 
NCUNF (2 ) =12 

NC  QNi~(3  1=13  ”•  — ~ 

NC0NF{6)=I6 
NC0NF(5)=15 
NCGNF  (4)==l4 

CALL  FILTER <NCONF,ICOD£} 

IF  (ICODp  .LT.O)  GO  TO  1 

ipichii=o  ' ‘ ' ~~  “ 

. IPIC1(2>=0 
IPSC1 (3)=0 

DO  ~2"i  1=1,9  “ 

23  IP IQ2 ( I ) =0 
IPIC3<1)=0 

, IPIC3(2)=0  ” - " 

DO  24.  1=1,9  ! 

24  IPIC.4(I)=0 

"DO  20 " 1=1, 6 1 ' 

20  IP  ICS  111 =0 

11  CALL  INITIu (NCONF , ItRRI ) 

IF  (IERR1  .00.  1)  GO  TOT  ! 1 : 

DO  10  ITR=1,2  ‘ ' ’• 

REWIND  1 . ’ ... 

IirN0D8=l  ■ r — — — — - 

lTtR=ITR-l 
CALL  RFADDBdFNODB) 

^ flTgR  #N£i>.0  .0R.  tt3CR0  »EQ.  1)  GO  TO  91 

IP1C1(1)=0 

IPICI(2}=0 

‘ "IPICI(3)=0  • 

.91  CALL  SANIDC (IPlCl,IERR(i),l TER ,NC0NF,ICH0S1,NCH0SI ) 
NFQUIP(1)=0  ‘ ' 


00000601 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
00000700 
00000710 
00000720 
00000750 
00000760 
00000770 
08000780 
00000781 
00000790 
00000800 
00000810 
00000820 
00000830 
0G0QP84Q 
00  G'O 08 50 
00000860 
00000870 
00000880 
00000890 
00000900 
00000910 
00000920 
00000930 
00000940 
00000950 
00000960 
00000961 
00000970 
00001020 
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ISN  0093 
ISN  0094 
ISM  0096 
"ISN  0098" 
ISN  0099 
ISN  0100 
ISN  0101 
ISM  0102 
ISN  0104 
ISN  0105 
ISN  0106 
ISN  0107 
ISN  0108 
ISM  0109 
ISN  0111 
ISN  0113 
ISN  0113 
ISN  0116 
ISN  0117 
ISKl  0118 
ISN  0120 
IS*i  0121 
ISN  0122 
ISN  0123 
ISN  0124 
ISN  0125 
ISN  0127 
ISN  012V 
ISN  0131 
ISN  0132 
ISN  0133 
ISN  0134 
ISN  0136 
ISN  0137" 
ISN  0138 
ISN  0139 
ISN  0140 
ISN  0141 
ISN  0143 


do  ioi  i=i,itesti  " ' ■~~7 

If  CICH0S1CI)  .LT.  0 ) GO  TO  1 
If  nCHGSKII  .GT.  0)  NEQUIP(1  l=NEQUIP(ll'*-l 

101  CONTINUE  - 

NOwAT=i 

CALL  SAV£(  ICHl>SA,NCHOSl,NOWAT,ITESTl,IENDDB) 

CALL  READD6C lENDDb ) ' “ 

IF  ( ITER  .NE.  0 .OR.  MICRO  .EQ.  2)  GO  TO  92 
DO  28  1=1,9 

28  I PIC2( 9 ) =G ~~~~  — 

92  CALL  AUXPRO|1F1C2,IERR<2>,1TER,NCONF,ICHOS2,NCHOS2) 
NEQUIP<2)=0 

DO  102  I = 1,3TTEST2  ‘ ~ 

IF  t ICHQS2 ( II  .LT.  0 .AND.  MICRO  -LT.  2J  GO  TO  13 

IF  C ICHQS2 ( I ) .LT.  0 .AND.  MICRO  .EQ.  2)  GO  TO  I 

IF  ClCHOSKI)  ,GT.  OJ  NEQUlP (2 )=NEQU1P ( 2 )♦! 

102  CONTINUE 

CALL  SAVE ( ICH0S2 ,NCH0S2,N0WA1 , I TEST2, 1EN0D6 i 
CALL  RtAPDB  ( I ENDD6 

IF  (ITER  -ME.  0 .OR.  MICRO  .EQ.  3)  GO  TO  93 
IPIC3(1)=0 

IPICi(2)=G  ' . " 

9->  CALL  DPI  ( iPIC'3 ,iliRR(3)  »ITER »WCDNF, ICH0S3,NCH0S3»NUWAT) 
NEQUIPC3 )=0  I 

DO  103  I=I»ITEST3  " " 

IF  ( 1CH0S3C I > -LT.  0 .AND.  MICRO  .LT.  3)  GO  TO  13 

IF  (ICHQS3(I)  .LT.  0 .AND.  MICRO  .EQ.  3)  GO  TO  1 

IF  <ICH0S3(I)  .GT.  0)  NEQUIPt3)=NEQUIP<3)*I 

103  CONTINUE 

CALL  SAVE!  ICHC<S3,NCH0S3,N0WAT,ITEST3,IE!VDDB) 

'CALL  RcAODB ( ILNDDB  ) ” 

IF  (ITER.Nt.O  .OR.  M1CR0.E0.4)  GO  TO  9* 

DO  29  1=1,9 

"29  IPIC4(  1 1=0  

94  CALL  COMM ( IPlC4,IfcRR (4) » IT Ek ,NCONF» ICH0S4,NCH0S4I 
NtOuIP<4  >=0 

DO  104  I=1,1TEST4  ” ‘ “ 

IF  (ICH0S4{II  .LT.  0 .AND.  MICRO  .LT.  4)  GO  TO  13 
IF  (1CH0S4UI  .LT.  0 ,aND.  MICRO  .EQ.  4)  GO  TO  1 


00001030 
00001050 
00001060 
00001070 
00001080 
00001090 
00001100 
oooomo 
00001120 
G6U01130 
00001140 
00001170 
0000 11 BO 
00001190 
00001200 
00001210 
00001220 
00001230 
00001240 
00001250 
00001260 
00001270 
00001280 
00001310 
00001320 
00001330 
00001340s 
00001350. 
00001360 
0000 13  70 
00001380 
00001390 
00001400, 
00001410" 
00001420 
00001450 
00001460 
00001470 
00001480 


ISN  0145 
ISN  0147 
ISN  ol«8 
ISN  0149 
ISN  0150 
ISN  0152 
' ISN  0153 
ISN  0154 
ISN  0155 
1SJT  0156 
ISN  0157 
ISN  0159 
ISN  0161 
ISN  0163 
ISN  0165 

isfner66 

ISN  C/167 
ISN  0168 
^ ISN  0170 
■ISN  0172 
ISN  0173 
" ISN  0174 
ISN  0175 
ISN  0177 
ISN  0176 
ISN  0i7V 
ISN  0180 
ISN  0181 
ISN  0182 
ISN  0183 
“ISN  0184 
ISN  0185 
JSN  0186 
ISN~5187 
ISN  0188 
ISN  0189 
ISN  0190 
ISN  0191 
ISN  0192 


IP  ( ICH0S4( I ) .GT.  01  «iEQUlPt4J=NEQUIP(4»-H 

104  CONTINUE 

CAU^  SAVtiICH0S4fNCH0S4»NawATf ITEST4, IENDDB ) 

CALL  READDB (IENDDB) 

IF  (ITER  .NE.  0 .OR.  MICRO  .EC.  5)  60  TO  95 
DU  21  1=1,5 

21  I P IC5  ( I )=0  “ " * 

95  CALL  EP(IPIC5,1ERR(5)»1TER,WCONF,1CHOS5,NCHOS5) 
NEQU1P(5)=0 
DO  105  I=1,ITEST5 

IF  (ICH0S5U)  .LT.  0 .AND.  MICRO  .LT.  51  GO  TO  13 
IF  ( ICHOSSI I ) »LT.  0 .AND.  MICRO  ,EQ,  5)  GO  TO  1 
IF  (1CH0S5(I>  .GT.  O)  WE QUIP  ( 5 ) =NEQU1P ( 5 )+l 
IF  (1CH0S5CIJ/100  .EG.  2)  IBTLaC=NOWAT-l+I 

105  CONTINUE 

, CAlL  SAVE  ( ICHQS5  ,NCH0S5  ,N0WAT,  I TEST5  » IENDDB  I I 

CALL  VESIZEdtRR  ( 6)  ,NCONF,  ICH0S6) 

IF  (TCHDS6  .LT.  0)  GO  TO  13 

IF  (ITER  .GT.  0)  GO  TO  10  4 

CALL  RtLY(IRTN,IREL,NEQUIP) 

PRINT  iOOO,lRlN 

3000  FORMAT  (5H  IRTN,I10)  ~ 

IF  (1RTN  .LT.  0)  GU  TO  13 
IR  1=1 

IRi-NEQUlPC 1} 

DD  31  IR=1 » IR2 

31  NCHOS 1 ( IK”)  CHOSE  ( IR  ) 

1R1=IR2+1  ’ ' 

IR2=NEQUIP(2I 
DO  32  IR=1,IR2 

NCHOS 2 ( IR)=NCHGSE ( IR1 ) ; 

32  IR 1=IR1+ 1 
IR2=hlEQUIP<3> 

DO  33  1R=1,IR2  

NCH0S3(IR)=NCH0SEIIR1) 

33  1R1=IR1+1 

IR  2=NEQUIP{4) 

□C  34  IR=I*1R2 
NCH0S6(IR )=NCHOSE ( Ikl) 


00001490 

00001500 

00001510 

00001520 

00001530 

00001540 

0000x550 

00001560 

00001590 

00001600 

00001610 

00001620 

00001630 

00001640 

00001650 

00001660 

00001670 

00001680 

00001700 

00001720 

00001721 

00001722 

00001730 

00,001740 

00001750 

00001760 

00001770 

00001780 

00001790 

00001800 

00001810 

0000182Q 

00001830 

00001840 

00001850 

00001860 

00001870 

00001880 

00001890 


ISN  0193 
ISN  0194 
ISN  0195 
ISft  0X96" 
ISN  0197 
ISN  0198^ 

’ lSTT  0199  - 
ISN  0200 
JSN  0201 
ISN"  0202 
ISN  0203 
ISN  0204 
' ISN  0205 
ISn  0206 
ISN  0208 
TSN" 0209 
ISN  0210 
ISN  0211 
ISN  0212 
■ ■ ISN  0213 
ISM  0215 
"ISN  0216 
i 1'SN  0217 
ISN  0218 


34  IRI=IR1+1  : 5 

lR2=NEQUIP(5> 

DO  35  IR=1,IR2 

NCH0S5(lR)=rNCH0SF<lRl)  

35  ,IR I=IR1+1 , 

10  .CONTINUE 

CALL'  STRUCT(NCONF)  ' ~~ 

CALL  THRML(IERR(7I,NC0NF» 

NCHOSE  (NOWAT)  =0  ^ 

CALL  COSTS (NCUnF, Nt QU 1 P ) . 

CALL  SKEO  ( NEOUl P,NCGNF) 

NACCKP=NACCEP+1 

" CALL  PRNT (IERR,N£QUIP#NACCEP,NCQNF) 
13  IF  (f-JICRO  .GT.  0)  GO  TO  II 

PRINT  9000 , NCONF  • 

PRINT  9000, { I CHOSE ( I ) , 1=1, NOWAT ) “ 
PRINT  9000,  CNCHOSem  ,1=1, NOWAT) 
9000  FORMAT  IIOIIQ) 

I CONTINUE  ~ 

IF  (IREL  .£0.  IENDRI  GO  TO  99  ■ 

IRE-L-IfcNDR  _ 

GO  TO  2 " 

99  STOP 
END 


♦OPTIONS  IN  EFFECT* 
♦OPTIONS  IN  EFFECT* 

t 


KAME=  MAIN,0PT=Q1  ,LINEC?IT=41*SIZ£=OOO0K» 

SOURCE, EBCDIC , NOLI  ST ,NODECK » LOAD, NOMAP , NOEDIT , ID,NOXREF 


♦STATISTICS*  SOURCE  STATEMENTS  = 217  , PROGRAM  SIZE  _= 

♦STATISTICS*  NO  DIAGNOSTICS  GENERATED 


000019.00 
oooo lvio 

0000 1920 
0^001930 
00001940 
00001950 
00001955 
00001960 
00001980 
00001990 
00001993 
00001995 
00002000 
00002010 
oooozoii 
00002012 
00002013 
00002014 
00002020 
00002030 
00002040 
00002050 
00002060 
00002070 


taT 


******  END  OF  COMPILATION  ****** 


81K  BYTES  OF  CORE  NOT  USED 


LEVEE  21.7  t JAN  73  > 


QS/360  FORTRAN  H 


COMPILER  OPTIONS 


ISN  0002 



- * “V 

ISN  ooo i'* 
ISN  0004. _ 


1,SN  ,0005 

i'sK*  0006 

~I  SN.;  0007- 
is'N.  66,08.; 

jl  *'  i ' ' ; • : * 

-,£-lL a X2L 

ISN  0,0.0,9 

IS'N"  ooI.l 


ISN  001.3; 


-r. ; ? ,“f  : , 

-t. 

- ISN.  06l5_. 

r 

C 

: : 

ISfcl,  .0017^ 
ISN^OOl?., 

C 

C if.'  i! 

£ - 0 

ISNj  0021. 

1SN:.  00.23 
ISN  0025';' 
ISrif  0027 


, vyc,  w, 

ISN 0031 
ISN  0032 
ISN" 0033 
1$N  0035 
ISN  0036 


-■  ■ NAME=  MAIN,  0PT=01 , LINECNT=41*S1ZE=OQOOK*  * 

SOURCE, EBCDIC, NOLI S| , NUOECK, LOAD, NOMAP , NOECIT, 10 ,NOXREF 
SUBROUTINE  FILTER (NCONF, ICODE > 00000010 

FILTER  CHECKS  FOR  COMPATIBLE'  COMBINATIONS  OF  CONFIGURATIONS,  7"  00000020 
.-A', ,MINUS:  1 IS  RETURNED  FOR,  UNACCEPTABLE.  COMBINATIONS'  ' ■ 00000030 

NCQNF  IS  ARRAY  OF  CONFIGURATIONS  00000040 

< .vI'.COpE^  I S'  CODl  .RLTUKNED  ' 00000050 

DIMENSION  NCONF ( 6 I . - - --  00000060 

_G0  MHQN  :./,USfeRT  /DP  HI , F t , TSMALLYXNU^P  DOTO  , TAUX  , T AUY  , TAUZ , T 00000070 

!„^^RX,PHIRY,PHIRZ,PDDTX  »PDUTY,PD0TZ7,XN,  V N,  Zti,PDOTRX  , PD.QTRY  , 00000080 

PD0TR2:,UMEGS.i  OMEGRyP J , XNN*  K»  MANY.,  lPAYAW*EPi  , AX  » AY  ,AZ  - 00000090 

* EAtEANT, ALPHA, TL,TACCEL,XNNN, THOLD,PDOT AV ,POOTST, PHIFDV »ISAT  00000100 

COMMON  .-/US&.R5/B TRMX , SCSEli i TPR’FlYOPSMS; ARR  A YN ( 11,3  J,NMSEU  00000110 

/USER4/10(>TCM(3J,lMSSEPtlSEy,LSGLS,LUSB,FRE0( 2), APOGEE, NET ,00 000120 
NADIR, FREQR , COM RAT , B WIDTH (21  000001^0 

GOMMLOi  /USER5/IVOLT,OPTEMP  00000140 

TCPQgpO,  ...  - _ . 00000150 

CHECKS  S^AND  C . 00000160 

IF  (PQPTRx-...;LT7  .01'-  .AND.  NCONF (1)  .EO.  1>  ICODE^l  00000170 

I fPDp-TRX  -lT.  .01  .AND,  NCONF ( II  .EQ.  3)  ICODE^-1 OOOOOIBO 

TF > , (AMi  Nil  'PHI  RX  , PHIRY,  PH1R2)  .LI.  .02  .AND,  NCONF  (1)  .EQ.  2)  00000190 

* ....  ‘ ' '•  1 ’’  ' 00000200 

MANEUVERABILITY  IS.  MAN V AND  IS' VALUES  lr-4  00000210 

I%',</iANVj >EQA;-'4v:.AND , NCONF < 1 j .EQ.  1)  IC0DE=-1  00000220 

,?:^^CPApi>,.yA.W'  IS  O'-’ OR  l'’’  7 1 . 00000230 

'IPAJYjftyt  «FtQi  1 wA’ND.1 -NConF <"!')  .NE.„2)  1 COQE=— 1 — - 00000240 

IfeT^CONEQ)  ^EQ.  4 .AND.  NC0NF(3)  .EQ.  2)  1C0DE=-1  06000250 

l.pp  TC  M { I ) IS.  RANGING'M=YES),I0PtCM(2)  IS  SEPARATE  LINK,  AND  60000260 

I pPTCMl;3):  is:  SEPARATE  ANTESiNAS  . . . _ . "00000276 

IF?nt;|0PT,CM(l>*I0FTCMt2)  ,GT.  0 .AND.  NC0NFI4I  .EQ.  l)ICaOE=~l  00000280 

I F*. < 1 OPiT(CM  1 2 > & IOPTGM { T . 0 .AND.  NCONF (4)  .EQ.  2)IC0DE=-T 66600290 

IFl  I10PT.CM12)  . G7,  .'0  .AND.  NC0NF(4)  »LE.  3|IC0DE=— i - 00000300 

. Ip  .j:IOp,T&M( 3)  .GT.  0 .AND.  NCQNP(4)  .EQ.  4)  ICQDE=—1  00000310 


. If  .(.lOpTCMli)  .GT.  0 .AND.  NCONF 

IF. (NCONF {4 j .LE.  37" 'GO  TO  45 

DOa  43 . 1=1 ,11 , „ , , >i  , 

DO  43  J=l,3  > 

IF  ( ARRAYNI I » J ) .GT.  0)  GO  TO  45 
43  CONTINUE. 

1C0DE=-1 


. ISN 
ISN 

0037 

W38 

45 

C 

50 

CONTINUE 

IV0LT=1  MEANS  VOLTAGE  REGULATED 
IF  UVOLT  -EQ.  1 .AND,  NC0MFI5)  .LE.  21 

ICODE--I 

00000390 

000004QG 

00000410 

ISN 

0040 

IF  (NC0NFI5)  -EQ.  I .AND.  NCONF(l)  .LT. 

3) 

ICOOE=-1 

00000420 

ISN 

0042. 

IF  <NC0NF(5)  .EQ.  3 .AND.  NCONFU)  -IT. 

3) 

IC0D£=-1 

00000430 

ISN 

0044 

IF  (NC0NF15)  . EQ.  6 .AND.  NCONF(l)  -LT. 

3) 

ICQDE=-1 

00000440 

ISN 

0046 

60 

IF*  INC0NF16)  .EQ.  2 .AND.  NCONFU)  -LT. 

31 

IC0DE=-1 

00000450 

ISN 

0048 

99 

RETURN 

00000460 

ISN 

0049 

Em 

00000470 

♦OPTIONS  IN  EFFECT*  NAMfc=  MAIN, 0PT=01 , LINECNT=4l , SIZE =OOOOK f 

♦OPTIONS  "IN  EFFECT*  7 "SOURCE,  EBCDIC,  NOLIST,  NODECK  , LOAD,  NOMAP , NOEDIT*  ID,  NOX^F^T  7 

♦STATISTICS*  SOURCE  STATEMENTS  = 4b  , PROGRAM  SIZE  » 844 

♦STATISTICS*  NO  DIAGNOSTICS  GENERATED 

******  "END  OF  COMPILATION  ******'  Tl7K  BYTES  OF  CORE  NOT  USED 


COMPILER  OPTIONS  - NAME  = MAIN,0PT=01,LINECNT=41 ,SI ZE=OOOOK, 

1SN 

0002 

SOURCEr  EBCDIC *MOLIST»KOD£CKt LOAD »NOMAP-*5IO£DlTt  ID  »NOXRtF 
SUBROUTINE  READS  6 ( IENDDB ) 

00000480 

I&N 

0003__ 

C 

C 

THIS  READS  THE  DATABASE  FOR  ONE  SUBSYSTEM  AT  A TIME 
IOB  IS  SET  AS  THE  DATABASE  IS  READ  BY  SCANNING  EQUIP  NUMBERS 
DIMENSION  STORE ( 55 ) 

00000490 

00000500 

00000510 

I S N 
1 SN 
ISN 

0004 

0005 

0006 

COMMON  /DBCOM/IDB  < 30 ) #DAT  AF(  55 #90)  " ' 

DATA  ST0R£/55*O./ 

IF  (IENDDB  . LE . 11  GU  TO  2 

00000520 

00000530 

00000540 

XSN 

ISN 

ISN 

0006 

0010 

0011 

1 

IF  (STORE ( 1)  .LQ.  G. ) GO  TO  2 ” 

DO  1 J=1 ,55 

DA TAB ( 1 >=STORE< J ) 

00000550 

00000560 

00000570 

• 

ISN 
ISN 
ISN 
‘iSft 
ISN 
ISN 
' ISN 

ISN 
<=>  ISN 

0012 

0013 

0014 

1 = 2 

IDULD=STORE(l)/iOO. 

II DB=1 

00000580 

00000590 

00000600 

0015 

0016 
0017 

2 

GO  TO  3 
1 = 1- 

ID0LD=0 

00000610 

00000620 

00000630 

< 

0016 

0019 

0020 

- 

3 

10  0^ 

1 1 DB=-1  ' 

RE AD(1, 100,END=V0)  ( OATAB < 3# I ) » J=1 .55 ) 

FORMAT  ( E5.0,A2,3A6»5tlO.O»/»5(8ElO.O,/J ,5E10.0> 

00000640 

00000650 

00000660 

I SN 
JSH 

0021 

0023 

c 

IF  (IDOLD  .EQ.  0)  IDOLD=DATAB ( 1,1 ) /100«  

ID=DATAB( 1#I)/1G0»  | 

TEST  FOR  END  OF  SUBSYSTEM 

00000670 

00000680 

00000690 

JSN 

0024 

0026 

c 

IF  (1C  .LT.  IDOLD)  GO  10  80 
TEST  FOR  NFH  EQUIP  TYPE 
IF  (ID  . EQ.  100LD)  GO  TO  4 

00000700 

00000710 

00000720 

ISN 

ISN 

ISN 

0023 

0029 

0030 

IDB ( I IOB )=T— 1 

IIDB=IIDE-H 

100LD=ID 

00000730 

00000740 

00000750 

♦ 

1 SN 
ISN 

_ " ISN 
ISN 
ISN 

0031 

0032 

t 

4 

1-1  + 1 

GO  TU  3 

HERE  WHEN  SWITCHING  SUBSYSTEMS  - 

00000760 

00000770 

00000700 

0033 

0034 

0035 

60 

5 

Dl3  5 3—1  #55 
STORE (J) =DATAB( J, 2 1 
lDB(IIOiJ)  = I-l 

00000790 

00000800 

00000810 

- 

ISN 

ISN 

ISN 

0036 

0037 

0038 

90 

IENDDB=I-1  - — 

RETURN 
DO  6 J=i « 55 

00000820 

00000830 

00000840 

»v 


TSfr  0039  6 STORE (J>=0. 

IS«  0040  IDB(HDB)=I~1 

ISN  0041  REWIND  1 

ISN  0042  " IENDDB-I— 1 

ISN  0043  RETURN 

ISN  0044  END 


♦OPTIONS  IN  EFFECT*  NAME-  HAlN,OPT=Oi, LINECNT=41,SIZE=OOOOK, 

♦ OPTIONS Tm  EFFECT*  SOURCE , EBCDIC , WOL 1ST »n6DECK .LOAD, NOMA P , NOEDI T * I D , NOXREF 

♦STATISTICS*  SOURCE  STATEMENTS  - 43  , PROGRAM  SIZE  = 1042 

♦STATISTICS*  NO  DIAGNOSTICS  G6NERATE0 


00000850 

00000660 

00000670 

00000880 

00000890 

00000900 


******  END  OF  COMPILATION  ****** 


125K  BYTES  OF  CORE  NOT  USED 


LEVEL  21.7  ( JAN  73  ) 


0S/360  FORTRAN  H 


COMPILER  OPTIONS 


ISN  0002 


ISN  000b 
ISN  0004 
ISN  0006 


ISN 
ISN 
_ISN 
' isn' 

ISN 
ISN 
ISN 
ISN 
_ISN 
o ISN 
L ISN 
^ ISN 
ISN 
ISN 
ISN 
I SN 
ISN 
ISN 

~~T5FT 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 


0006 

0007 

0009 

0010 

0011 
0012 
00T4~ 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 
0029  " 
0036 

0031 

0032 

0033 


♦OPTIONS  7ST  EFFECT* 
♦OPTIONS  IN  EFFECT* 


NAME=  MAINfOPT— 01  »LI!'iECNT=4I»SIZE=0000K. 

SOURCFt £bCDIC«NQLlST  f NODECK, LOAD, NOMAP .NOEDIT, ID ,NOXREF 
SUBROUTINE  SA  VE ( I IN.NIN.NOWAT. 1TEST, I ENDDfi ) 

THIS  SUBROUTINE  SAVES  ICHOSE .NCHOSE , AND  AWY  PORT I OKS  OF 

THE  DATABASE  REQUIRED  BY  LATER  SUBSYSTEMS  OR  ROUTINES 
DIMENSION  XINr(!5)tttINU51 

COMMON  /QBC0M2I  DB  ( 30  ) ,DATAl7rJ5"V90>  ~ ~ — 

COMMON  /CHCiit/ 1 CHOSE  ( 60 1 , NCHOSE  ( 60  ) .COST  15,60)  , RE L (6,60)  ,THM<4,60 
DPI A ( 11 , 60 ) , SKO ( 7,60 ) 

DO  1 1=1  , ITEST 

IF  (IIN(I)  .LE.  0>  GO  TO  1 •*' 

JCCHOSE  (N0WA1  )=1IN(I) 

NCHQS  E ( NOHA  1 ) =N  1 N(T)  7~ 

DO  3 J=I , I ENODE 

IP  (DATA  B ( 1 , J ) ,NE . 1IN<I))  GO  TO  3 

DO  i.  KKK— 1^3  ~ " ” ' •' 

COST ( KKK ,NOWAT )=DATA8 (45+KKK  » J ) 

REU1,N0WAT)=DATAB(23»J| 

D0"4  KKK=2,6  — 

REL(KKK,N0WAT)=0ATAB(39+KKK»J) 

DO  5 KKK-i ,11 

DP  I A ('KKkVnoW  A T )=DAT  AS  ( 29+KKKt  JI  

THM(1,NOWAT}=DATa6I17,J) 

JPLM(_2,NOWAT)  = r;ATABfl8,J>  . , 

THM(3 ,N0WAT)=0ATAB (27, J)  

THM<  •‘i  , NO  WAT  )=DATAP(2B,J) 

SKD(1,N0WAT)=0ATAB(A6,JI 

SKD72  , NO  W AT  } = DATAB(*7,J) I : 

00  6 KKK=3,7 

SKD1K  KK.NQWAT )=DATAB (48+KKK, J ) 

CONTINUE  — 

N0WAT=N0WAT+1 

CONTINUE 

■RETURN  ■ ~ ~ — 

end 

~ ~ WAME=  MAIN ;CPT=01,LlNF.CNT=41,SI2&=000OK^ 1 


00000910 
00000920 
00000930 
00000940 
00000950 
100000960 
00000970 
00000980 
00000990 
000010QP 
000010,10 
00001020. 
00001030 
' 00001040 
00001050 
00001060  ^ 
00001070 
00001080 
00001090 
00001100 
00001110, 
00001120 
00001130 
00001140 
00001150 
00001160 
00001170 
00001180 
00001190 
00001200 
00001210 
00001220 
00001230 


SOURCE, EBCDIC, NOLI ST, NODECK, LOAD, NOMAP 


nn  r r t 


LfVEL  21.?  f JAN  73  ) 


0S/360  FORTRAN  H 


ISN 

1SN 


ISN 

'ISN 

ISN 


COMPILER-  OPTIONS  - NAME=  MAIN,0PT=01 , LlNECNT=4i,SIZb=?OOOOK; 

OOO*  


OQW 


0004 

OGTjIT 


OOOto 


ISN 

ISN 

ISN 


0007 

0008 
0009 


r 


4^ 


00001790 


:1I€S^ 

P TVg£^^AiRADA B ,R A,T^TRPWR,HTRPRB  , . 00001820 

00001830 ' 
00001831 
0000I&40 
” 00001850 
00001860 
00001870 


COMMON  /USC  8 7/ 1 S A TOR , 0 R B I NC 


COMMON  ✓USERl/eQMlWT,£QM2WT,DlAMAXtALT  

'i  f “S  * '7^°^  ( 6 0 1 »NCH0S H < 60  > * COST(  5 , 60 ) , RE  L {6 ,60 > , 
* THnMul  (4y60)  r DP 1A( 11.60)  »SKD(7.6Q) 

DlMfcNSION  NC0NPC6)  — — 

REAL  LNGTH 


00001880 

T~g^~gi~^v*p~y^y^I^-^pY^^I^^^I^sQ^I-^^SS/60«0/t-AI.BDO/l&5»0/«CC)NST/I  -nonnionfi 

\ ::  Sy“r 

j «~r 

c ** CODE  IS  AS  FOLLOWS  ' **00002010 

c *;  0 I BASt’  !NT~I5frrRNTL  Soo002030 

c « ■ NAMF  0501  D«its  IDEFAULT) DESCRIPTION «bW*060 

C « ALBDO  INT  155  BTU/IHR.FT..2,  A77dO  '^SST 

**00002110 


C ** 

c ** 
c ** 


ALPHA 


iNT 


0*30  (DIMENSIONLESS I 
0.06  (DIMENSIONLESS) 


CONV. RAD. CONST. **00002120 
OSR.  RAO. CONST. **00002130 
**00002140 


k* 

ALT 

U 

' 

N.MI. 

ALTITUDE  **00002150 

k* 

* 

**00002160 

it* 

BV 

INT 

1.1 

voc 

MAX  BATT.VOLT.  **00002170 

k* 

**00002180 

it* 

CA 

INT 

0.5 

AMPS 

BATT  TRICKLE  **00002190 

k* 

**00002200 

It* 

CONST 

INT 

1.5 

K CONSTANT  **00002210 

It* 

**00002220 

It* 

EMISS 

INT 

60 

BTU/(HR*FT**2)  ' 

EARTH  EMISSION  **00002230 

k* 

**00002240 

** 

EPSLLN 

INT 

0.75 

( DIMENSIONLESS  1 

CONV.RAD.CONST. **00 002250 

k* 

0.73 

( DIMENSIONLESS) 

OSR.  RAD. CONST. **00002260 

k* 

**00002270 

k* 

etat 

INT 

XMTR 

EFFICIENCY  **00002280 

k* 

**00002290 

k* 

HPT 

0 

(BTU/HR > TOTAL  HEATER  POWER  **00002300 

k* 

**00002310 

k* 

HTPIPE 

0 

(BTU/HR)  HEAT 

DUE  TO  H.P.  **00002320 

k* 

**00002330 

f* 

HTPT 

0 

( BTU/HR ) TOTAC 

. HEAT, PIPE  **00002340 

k* 

**00002350 

k* 

HTRPRB 

0 

1 BTU/HR )BATT • 

HEATER  POWER  **00002360 

k* 

**00002370 

k* 

HTRPWft 

0 

(BTU/HR IOTHER 

. HEATER  POWER  **00002380 

k* 

**00002390 

k* 

I 

INT 

INDEX 

: **00002400 

k* 

**00002410 

k* 

IBTLOC 

I 

BATTERY  LOCATION  **00002420 

k* 

**00002430 

k* 

ICONF 

INT 

TYPE 

OF  CONFIG.  **00002440 

k* 

ISATOR 

U 

1 

(DIMENSIONLESS) 

EARTH  ORIENTED  **00002450 

k* 

2 

(DIMENSIONLESS) 

SUN  ORIENTED  **00002460 

k* 

3 

(DIMENSIONLESS) 

INERTIALLY  OR I. **00 00 2470 

k* 

**00002480 

k* 

NC 

NUMBER  BATT  CEL**00002490 

k* 

**00002500 

k* 

NCONP(l) 

I 

S+C  MACRO  INDEX**00002510 

k* 

NC0NF(6) 

I 

VS  MACRO  INDEX**00002520 

**00002530 


ORBINC 


PMAX 


1NT  (OB ) 


PMIN 


INT  (Db) 


QMAX 


QMAXB 


OMIN 


OMINB 


RADA 


RADAB 


SATLG 


I ~TvsT 


SATRAD 


I (VS) 


sigma 


THRMDB 


INT  (DB) 


tmaxb 


INT 


ursDi  l IIMLLINA  i .*«UOOUZ540 
**00002550 

KG  PHASE  CHANGE  MASS  **0d002560 


**00002570 

3.14159265  CONSTANT  00002580 

**00002590 

**00002600 

WATTS  PWR  MAX  **00002610 

i **00002620 

WATTS  PWR  MIN  **00002630 

**00002640 

( BTU/HR J MAX  PWR  DISSAP. **u00026SQ 

**00002660 

(BTU/HR)  BATT. POWER  MAXIMUM  **00002670 

**00002680 

( BTU/HR I MIN  PWR  DISSAP.**00002690 

**00002700 

(BTU/HR)  BATT, POWER  MINIMUM  **00002710 

, , **00002720 

442.0  BTU/(HR*FT**2)  • SOLAR  CONST.  **00002730 

**00002740 

(FT**2)  RADIATOR  AREA  '"**00002750 

**00002760 

J FT**2  BATT. RAO. AREA  **00002770 


INCHES 

INCHES 


SAT.  LENGTH 
SAT.  RADIUS 


J FT**2  BATT. RAD. AREA  **00002770 

1 ' ' **00002780 

FT**2  TOTAL  RAD.  AREA  **00002790 

£ 1 **00002800 

INCHES  SAT.  LENGTH  **00002810 

. **00002820 

INCHES SAT.  RADIUS  **00002830 

**00002840 

0.i714E-8BTU/(HR*FT2*R4)  BOLTZMANN  C0NST**G000285O 

**00002860 

THERMAL  DATA  BASE"  00002870 

**00002880 

DEGREES  R MAX  TEMPERATURE**000 02890 

~ **000  02900 

BATT.  MAX.  TEMP.  **00002910 

__ **00002920 


c ** 
c ** 
c ** 


TMIN  “ 
TMIS46 


INT  CDB). 
BIT 


C ** 

c ** 

c ** 


DEGREES  R MIN  TEMPERA TURE**00002930 

**00002940 

BATT . MIN.  TEMP.  **00002950 


VCHP 


VAR. COND. HEAT  PIPE 


**00002960 
**00002970 

T **00002980 

J:  **00002990 

C **00003000 


£ 00003020 

C *******^*********)»:##!jc******^*«:***))[******1(t«*+fr*#<[*^*^****;t:***+*J>.<.3r*^oc|003030 

C **********♦****♦*******♦**»♦♦»»■»»»♦»»#♦»♦»»♦♦» 

C * 2 r T_~  *00003050 


C * 

c * 


o 


D 


*00003060 

*00003070 


C * 
C * 
C * 


S 

R 


I 

s 

0 


c * 
c * 
c * 


I 

0 

D 


c 

0 


V 

c 

H 


T 

H 

E 


S 

R 


9i 

V 


C * 

c * 
c * 


E 

A 

T 


C * 
C * 

c * 


p 

c 

M 


R 

ft 

A 


H _H 
E 
A 
T 


"E 

A 

T 


R 

A 


0 

£ 

A 


*00003080 

*00003090 

*00003100 


E 

A 

T 


R 

A 

D 


R 

A 

D 


P 

I 


M 

A 


■ L 
I 
Z 


c * 

c * 

c * 


p 

I 


p 

I 


I 

A 

T 


R 
A 
D 
1 
' A 
T 


E 

R 

~P 

0 

w 


T 

0 

_R_ 

A 

R 


*00003110 

*00003120 

*00003130 


*00003140 

*00003150 

*00003160 


A 

B 


P 

• E 


S 

s 


E 

R 


P 

E 


P 

E 


0 

R 


0 

R 


E 

R 


E 

A 


*00003170 

*00003180 

*00003190 


C * 

c * 
c * 


I ERR  = 


XXX 


X X 


*00003200 

*00003210 

*00003220 


WHERE 


0 

1 


MEANS  NO  SUCH  REQUIREMENT.  OR 


*00003230 

*00003240 

*00003250 


£ * i MEANS  wc  HAVE  THIS  REQUIREMENT  *00003260 

~ * *00003270 

C ** ******  ^^*#****#******^*******»*:«a(e*3)c****<t«^^*4:^#*#l{(4(+^J{.)ic+We+ljt3.a^t-yQ003290 

C **************;S:********»*#Jit*#Jfr«**)S«jWf***3jc#****^4(***^;(t^*Jjt4c^^:^4.^:4:+<t+.:t.;Sl:0QQQ230Q 
-C-* 1 *000033 10 


-18 


ISN  OfflO 
ISM  0011 
ISN  0012 
ISN  0013 
ISN  0014 
ISN  0015 
ISN  0016 
ISN  0017 
ISN  0018 
ISN  0019 
ISN  0020 
ISN  0021 
ISN  0022 
ISN  0023 
ISN  0024 
ISN  002F 
ISN  0026 


ISN  0027 
ISN  0029 


ISN  0031 
ISN  0032 
ISN  0033 
ISN  0034 
ISN  0035 


ISN  0036 
ISN  0037 


C — 4 

C *#  INITIALIZATION. FOLLOWS  ^ - 

C 

RADA=0.  ' “ " . 

RADAB-O. 

RAT=0.0 

HTRPWR  =0  . . 1 T 

HTKPr£=0 » 

HPl =0. 

'htpipe=o.  ; 

VCHP— 0, 

htpt=o« 

TMAX=I  »E+20  

TMlN=-l.E20 

PMAX=0. 

’ PMIN=0.0  : * 

ETAT=1.0  ' 

1=0 

SATRAD=.5*D  — — T 

10  1=1+1 

c 

c SEARCH  FOR  MIN (H AX  TEMP)  AND  MAXCHIN  TEMP),  AND 

C ACCUMULATE  THE  POWER  (EXCLUDING  XMTRS  AND  BATTERIES) 

^ >/ 

IF"  ( I CHOSE  (I).LE.O)  GO  TO  50  — — 

C 

IF  (l.EQ.IBTLOC ) GO  TO  20 

C : : — ; 

C , ' 

^ TMAX=AMINl(TMAX,THRMDB(3»r>) 

__Tmiw=amaxT(tmin*thrmdb (4,i>)  ~ • ; 

PMIN^THRMDB (2,1 )+PMIN' 

PMfiX=THRMOB 1 1,1} +PMAX 

GO  TO  10  1 

C 

C **  HERE  IF  WE  HAVE  THE  BATTERY 

C ‘ ~ 

20  TMINB=ThRMDB(4,I)+460. 

TMAXB=THRM0B(3, I )+460. 


00003320 
00003330 
00003340 
00003350 
. 00003360 
00003370 
00003300 
00003390 
00003400 
' 00003410" 
00003420 
00003430 
00003440 
00003450 
00003460 
00003470 
00003480 
00003490 
00003500 
00003510 
00003520 
00003530, 
000035 4G 
00003550 
00G03560 
00003570 
00003580 
00003590 
00003600 
00003610 
00003620 
00003630 
00003640 
00003650 
00003660 
00003670 
00003680 
00003690 
00003700 


0038 

0039 

0090 

0091 
0043 
0099 

“0645 

0046 

0047 


ISN  0048 
• ISN  0049 


ISN  0050 
ISN  0051 


ISN  0052 


ISN  0053 
ISN  0054 
ISN  0056 
ISN  0058 
ISN  0059 
ISN  0060 


C 

C ** 

c 

60 


C 

c ** 
c ** 
c ** 


ISN  0061 
ISN  0062 


GO  TO  10 
CONTINUE 
QMIN-PMIN*3.4X 

IF (PMAX*.5  -GT.  PKIN)  PMAX=PMAX*.5  ~ 

QMAX=PMAX*3.41 

TMAX=TMAX+460. 

~TMIN=TMIN+4oO.  

IC0NF=NC0NFC6) 

GO  TOTbO,  70,80),  ICOKF  — — 

SATrLLITL  LENGTH  IN  INCHES.  (MUST  CONVERT  TO  CMMFRQM  VSl 

1 { cylinder!  : • 

LNGTH=S ATLG*2 . 54*0-75 

GO,  TO  90 

SATELLITE.  LENGTH  IN  INCHES  (MUST  CONVERT  TO  CM ) (FROM  VS) 

TNGTH=SATLG*2 . 54*0-75  “ 

GO  TO  90  . 

SATELLITE  LENGTH  IN  INCHES  (MUST  CONVERT  T0TmT(FR0M  VS) 
(SPHERE) 

LNGTH=PIE*SATRAD*2.54 


CONTINUE 

IF  (ALT. GT. 19000.)  GO  TO  300  ' 

IF  (ALT. LT. 500. ) GO  TO  160 
GO  TO  (130,100,100),  ISA TOR 
ICONF.=NCONF(1  ) “ 

GO  TO  (120,120,110,110,110),  ICONF 

ORBITS  GT  500  BUT  LT  19000  AND, 

SULAR  ORIENTED  AKD, 

3-AXIS  STABILIZED (EQUATION  3, 3. 1.1) 

ALPHA=0.30 

EPSLON=0.75 


00003710 

00003720 

00003730 

00003740 

00003750 

00003760 

00003770 

00003780 

00003790 

00003800' 
00003810 
**00003820 
00003830 
00003840 
00003850 
00003860 
**00003870 
00003880 
00003890 
00003900 
00003910 
**00003920  ' 
00003930 
00003940 
00003950 
00003960 
00003970 
00003980 
0000^990 
00004000 
00004010 
00004020 
00004030 
**00004040 
**00004050 
**00004060 
00004070 
00004080 
00004090 


ISN  0063 


ISN  0064 


ISN  0065 
ISN  0066 
ISN  0067 


ISN  0070 


ISN  0071 


ISN  0072 

ISN  0073 
_I_SN_  0074 

ISN  0075 
ISN  0076 


C 

~C  ** 
C ** 

c ** 
_ 

120 


DETERMINE-  RADIATOR  AREA 

RADA=QMAX/(SIGMA*ePSLQN*TMAX**4-fEMIS$*EPSL0N) ) 

DETERMINE  heater  power " 

HTRPWR=1.25*( ( SIGMA*£PSL0N*RADA*TMlN**4)-( QMlN)-( EM1SS*£PSL0N) ) 

^DETERMINE  HEAT  PIPE  7 " 

HTP1PE=<QMAX*LNGTHJ/3*41 

IERR  = 1011I  

GG  TO  380 

ORBITS  GT  500  BUT  LT  19000  AND,  ~ 

SOLAR  ORIENTED  AND, 

SPIN  STABILIZED (EQUATION  3. 3. 1.2) ' 

ALPHA=0.3 

EPSL0N=0.75 

DETERMINE  RADIATOR  AREA  | 

RADA  = UMAX/(SIGMA*EpSLDI\|*TMAX**4-(EMISS*EPSL0N|  I 
DETERMINE  HEATER  POWER 

HTRPWR=r.25*USlGMA*£PSLON*RADA*TMlN**4>-fQMIN>-lEMlSS*EPSLONn 

DETERMINE  HEAT  PIPE  ' 

HTP1PE=( tOMAX*LNGTH)/3.4I) 

IERR  = 101U 

GO  TO  380 

ICONF=NCflNP  ( 1 ) 

GO  Td  (140,1^0,150,150,150),  ICOWF 


00004100 
00004110 
00004120 
” 00004130 
00004140 
00004150 
00004160” 
00004170 
00004180 
00004190 
00004200 
00004210 

0000<t220 

00004230 

00004240 

**00004250 

**00004260 

**00004270 

0000428,0 

00004290 

00004300 

00004310 

00004320 

00004330 

00004340 

00004350 

00004360 

00004370 

00004380 

000043^0 

00004400 

00004410 

00004420 

00004430 

00004440 

00004450 

00004460 

00004470 

00004480 


C 

* 

00004490 

■ C '** 

ORBITS  GT  500  BUT  LESS  THAN  19000  AND, 

**00004500 

c ** 

EARTH  ORIENTED  AND, 

♦ 

**00004510 

SPIN  STABILIZED 

(EQUATION  3. 4. 1.2) 

**00004520 

c 

- 

00004530 

ISN 

0077 

140 

ALPHA=0.08 

00004540 

ISN 

0078 

* 

EPSL0N=0.73 

00004550 

c 

00004560 

c * 

DETERMINE  RADIATOR  AREA 

. 

00004570 

c 

00 G Q45 80 

ISN 

0079 

RADA=QMaX/<  <SIGMA*tPSL0N*TMAX**4)-(QS*ALPHAl) 

00004590 

c 

00004600 

• 

c * 

DETERMINE  HEATER  POWER 

00004610 

c 

> 

00004620 

ISN 

0080 

HTRP WR=1 .25*  ft S i GMA*EPSL0N*RADA*TMIN**4 ) -I QMIN  M 

00004630 

c - 

00004640 

c * 

determine  PCM 

00004650 

c 

• t 

00004660 

ISN 

0061 

PCM=M0.26*ALPHA*Q$*RADA*CONST)/,4Q. 

00004670 

c 

• 

00004680 

c * 

DETERMINE  HEAT  PIPE 

00004690 

n*> 

c 

00004700 

n ISN 

0082 

HTPIPE=( QMAX*LNGTH )/3.41 

0000471b 

c 

00004720 

ISN 

0083 

IERR=100II0II 

00004730 

ISN 

0084 

GO  TO  380 

00004740 

c . 

00004750 

c ** 

ORBITS  GT  500  BUT  LESS  THAN  19000  AND, 

**00004766 

c ** 

EARTH  ORIENTED  AND, 

**00004770 

c ** 

3 —AX I S STABILIZED 

(EQUATION  3. 4. 1.1) 

**00004780 

c 

' 

00004790 

ISN 

0085 

150 

ALPHA=0.08 

00004800 

ISN 

0086 

EPSL0N=0 ,73 

00004810 

c 

00004820 

c * 

DETERMINE  RADIATOR  AREA 

00004630 

c 

00004840 

ISN 

0087 

RADA=QMAX/( ( SIGMA*£PSL0N*TMAX**4)-(QS*ALPHA) ) 

00004850 

r- 

c 

00004860 

c * 

DETERMINE  HEATER  POWER 

00004870 

~TSN  0090 

r$N  0091 
I SN  0092 

ISN  0093 

ISN  0095 

‘ “TSFT'0096 

f ISN  0097 

tv  — — — — 

tv 


ISN  0098 


ISN  0100 


ISN  0101 


c 

• c ** 
c ** 
c ** 
c 

180 


* determine  heat  pipe 

HTPIPE=(QMAX*LNGTH1/3.4I 
IERR =1001  SOU 

GO  TO  380  ~ “ "1~ 

IF  (0RB1NC  .GT.30.  > GO  TO  230 

GO  TO  1170,200,2001,  ISATOR 

IC  0NF=NC0NF(1)  ; 

GG  TO  (180,180,190,190,190),  ICONF 

15  ORBIT  LT  500,  ORSlTAli  INCLINATION  LE  30  DEGREES  AND, 

► EARTH  ORIENTED  AND,  I 

‘ SPIN  STABILIZED  (EQUATION  2. 1.2. 2) 

ALPHA=0»  08 

EPSLQN=0.73  ~ 


* DETERMINE  radiator  area 


00009940 

00004950 

00004960 

00004970 

00004980 

00004990 

00005000 

00005010 

00005020 

00005030 

00005040 

00005050 

00005060 

00005070 

00005080 

00005090 

*#00005100 

**00005110 

**00005120 

00005130 

00005140 

00005150 

00005160 

00005170 


00005180 

RADA=QMAX/(  (SIGMA*EPSLON*TMAX**M-(EMISS*£PSL0N/PIE)-(QS+ALBDO)*AL0O005l9d 
1PHA/PIE)  0&005200' 

00005210 

* DETERMINE  HEATER  POWER  00005220 

00005230 

HTRPWR  = 1 . 25*  < ( S 5GMA*EPSLQN*RADA*TMIN**4 ) -( QMIN  »-( ( EM1SS*EPSLDN )/P 100005240 

00005250 
00005260 


ISN  0102 
ISN  0103 


ISN  010* 
ISN  0105 


ISN  0106 


ISN  0107 


ISN- 0108 


ISN  0109 

ISN  QUO 
ISN  0111 


ISN  0112 


ISN  0113 


C 

c ** 
c ** 
c ** 

~c 

190 


C 

c ** 
c ** 

C ** 

c 


IERR=101i  ””  “ ■ 

GO  TO  380 

ORBIT  LT  500,  ORBITAL  INCLINATION  LE  30  DEGREES  AND, 
EARTH  ORIfcNTED  AND, 

. 3-AXIS  STABILIZED (EQUATION  2. 1.2. It 

ALPHA=0«08 

EPSLDN=0.73 

DETERMINE  RADIATOR  AREA 

RADA^MAX/(  (SIGMA*EPSL0N*TMAX**4F-f  ALPHA*QS») 

DETERMINE  HEATER  POWER ^ 

HTRPWR=1.25*( (SIGMA*EPSL0N*RADA*TMIN***)-QMIN) 

DETERMINE  pCM  MASS  

PCM=(0.26*QS*RADA*ALPHA*C0N;ST)/40. ' 

DETERMINE  1S0THERMAL12ER  HEAT  PIPE 
HTPIP'E^{QMAX*LNGTH»/3.4l  " 

IERR=110HC1L 

GO  TO  380  “ 


ICONF^NCONPd) 

00 "TO  (210,210,220,220,220  > , ICONF 

ORBIT  LT  500 1 ORBITAL  INCLINATION  LE  30  DEGREES  AMD, 
SUN  ORIENTED  AND,  — 

SPIN  STABILIZED  (EQUATION  2. I. 1.2) 


0000527C 

0000528C 

0000529C 

**0000530C 

**0000S31C 

**00005320 

0000533C 

0000534C 

0000535C 

00005360 

,00005370 

00005380 

00005390 

00005400 

00005410 

00005420 

00005430 

00005440 

00005450 

00005460 

00005*70 

00005*80 

00005*90 

00005500 

00005510 

00005520 

00005530 

000055*0 

00005550 

00005560 

00005570 

00005580 

00005590 

00005600 

00005610 

♦*00005620 

**00005630 

**000056*0 

00005650 


ISN  0114 
ISN  0115 


ISN  0116 


ISN  0117 


ISN  0118 

ISN  0119 
ISN  0120 


vO 

i 

r\> 


ISN  0121 
ISN  0122 


ISN  0123 


ISN  0124  ' 


ISN  0125 


ISN  0126 
ISN  0127 


210  At_PHA=0.08 

EPSLON=0.73 


00005660 

00005670 

00005680 


C • * DETERMINE  RADIATOR  AREA  - : 00005690 

C 00005700 

- RA PA-ltMAX/ ( (SIGHA*EpSL0N*TMAX**4)-(EHlSS*£PSLQN)~(.S*ALB00*ALPHA) IQOOQ 5710 

C 00005720 

C * DETERMINE  HEATFR  POWER  00005730 

C 00005740 

00005750 
00005760 
00005770 


C 

C 


c 

c 


HTRPWR=1.25*( ( SIGMA*EPSL0N*RADA*TMIN**s7-h!FMINT 
* DETERMINE  HEAT  PIPES 


HTP1PE=(0MAX*LNGTH)/3.41 


C 


IERR=10011 
GO  TO  380 


00005780 

00005790, 

00005800 


C **  ORBIT  LT  5C0*  UBITAL  INCLINATION  LE  30  DEGREES  AND* 
C **  SUN  ORIENTED  AND, 

C **  3-AXIS  STABILIZED (EQUATION  2. 1.1.1) 


00005810- 

00005820 

00005830 


C 
220 


**00005840 
**00005850 
**00 C 05860 


ALPHA=0.Q8 
EPSLON=Q . 73 


00005870 

00005680 

00005890 


^ _ 00005900 

C * DETERMINE  RADIATOR  AREA  00005910 

— 00005920 

R ADA=QMAX/ ( < S IGHA*EPSL0N*TMAX**4 )- ( EMIS S*EPSLQN *- ( ALBDO*A LPH A ) ) 00005930 


* DETERMINE  HEATER  POWER 


00005940 

00005950 


C 

~C 

c 


HTRPWR=1.25* ( ( S1GMA*EPSL0N*RADA*TM1N**4 )-QMlN) 
* ' Determine  heat  pipes 

HTP1PE= ( QMAX*LNGTH )/3.4l 


00005960 

00005370 

00005980 

00005990 

00006000 

00006010 


1ERR= 100 1 1 
GO  TO  360 


00006020 
00006030 , 
00006040 


' 

C 

c 

c 

HERE  IF  ORBINC  GT  30 

00006050 

00006060 

0000607(1 

c 

00006080 

c 

G0U06090 

ISN 

0128 

230 

GO  TO  1240,270,270),  ISATOR 

00006100 

C 

000061 ID 

ISN 

0129 

240 

ICONF=NCONFI1) 

00006120 

C 

, 

00006130 

ISN 

0130 

GO  TO  (250 ,250,260,260,260 ) , ICONF 

00006140 

C 

00006150 

c ** 

ORBIT  LT  300,  ORBITAL  INCLINATION  GT  30  DEGREES  AND, 

**00006160 

c ** 

EARTH  ORIENTED  AND, 

**00006170 

c ** 

SPIP8  STABILIZED  (EQUATION  2. 2.3.2) 

**00006180 

c 

00006190 

ISN 

0131 

250 

ALPHA*. 08 

00006200 

ISN 

0132 

EPS LON*. 73 

00006210 



C 

00006220 

ISN  0133 


I SIM  0134 

ISN  0135 
ISN  0136 


ISN  0137 
ISN  0133 


C * DETERMINE  RADIATOR  AREA  0000&Z3<r 

C ' G0006240 

RADA=QMAX/(  (SlGMA*£PSL0N*TMAX*»4)~tEMISS*E:PSLQN/PIE)-UQS+ALBDQ)*A000C625P 

1LPHA/PIE ) } 1 | 0000ti260 

C 1 00006270 

C * DETERMINE  HEATteR  POWER  00006280 

C 00006290 

HTRP»k=l.i5*(  (SlGHA*EPSLaN*RADA*TMIN**4)~vWlN~tEMISS*EPS LON/PIE ) ) 00006300 

C ; i 000Q6310 

IERR=1011  ' 00006320 

GO  TO  380  00006330 

C . 0000  6340 

C **  ORBIT  LT  500,  ORBITAL  INCLINATION  GT  30  AND,  **00006350 

. C **  EARTH  ORIENTED  AND,  **00006360 

C **  3-AXIS  STABILIZED (EQUATION  2.2. 3-1) **00006370 

c 00006380 

260  ALPHA*. 08  00006390 

EPSLQN*.  73 00006400 

C ’ 00006410 

C * DETERMINE  RADIATOR  AREA  00006420 

C ■ . 00006430 


ISN 

0139 

C 

C 

* 

RADA=QMAX/( (SIGMA*EPSL0N*TMAX**4)-(ALPHA*QS)1 
determine  HEATER-  power 

00006440 

00006450 

00006460 

* 

c 

00006470 

ISN 

0140 

HTRPWR= 1 . 25* ( ( SrGMA*EPSL0N*RADA*TMIM**4 ) -QNIN ) 

00006480 

c 

00006490 

c 

* 

DETERMINE  PCM  MASS 

00006500 

c 

00006510 

ISN 

01*1 

PC M= ( 0 .2 6*QS* ALPHA*R ADA*CONST ) /40 . 

00006520 

* 

c 

00006530 

c 

DETERMINE  ISO THERMAL IZER  HEAT  PIPE  . 

00006540 

c 

• 

- - ^ * 

00006550 

ISN 

0142 

HTPIPE=(9MAX*LNGTH)/3.41 

00006560 

c 

00006570 

ISN 

0143 

IERR=110 11011 

00006580 

w 

0144 

GO  TO  380  ' - ' 

00006590 

c 

00006600 

c 

' 

00006610 

sD 

c 

00006620 

t\J 

ISN 

0145 

270 

ICONF=NCONF( 1 J 

0000t>o30 

ON 

ISN 

0146 

GO  TU  (280,280 ,290  *290  » 290  ) , 1C0AIF 

00006640 

C 

. 

00006650 

C 

** 

ORbJT  LT  500,  ORBITAL  INCLINATION  GT  30  AND? 

**00006660 

c 

** 

SUN  ORIENTED  AND,  _ 

**00006670 

c 

** 

"SPIN  STABILIZED  (EQUATION  2.2.2.21 

**OG006u80. 

c 

00006690 

ISN 

0147 

280 

ALPHA=.08  • 

00006700 

ISN 

0148 

EPSL0N=.73 

00006710 

** 

c 

* 

00006720 

c 

* 

DETERMINE  RADIATOR  AREA 

00006730 

c 

00006740 

ISN 

0149 

RADA=OMAX/( (SIGMA*EPSLON*TMAX**4)-(EMISS*EPSLON)-(AL6DO*ALPHA) ) 

00006750 

c 

00006760 

t 

* 

DETERMINE  HEATER  POWER 

00006770 

c 

< 

00006780 

ISN 

0150 

HTRPWR=1 .25* ( { SIGMA*EPSLQN*RA0A*TMIN**4|— QMIN~(EMISS*EPSL0NI1 

00006790 

c 00006800 


* DETERMINE  PCM  MASS 


00006610 

00006820 


ISN  0151 


ISN  0152 

ISN'  0153- 
ISN  0154 


ISN  0155 
ISN  0154 


ISN  0157 


ro  ISN  0158 


ISN  0159 


ISN  0160 

ISN  0161 
ISN  0162 


ISN  0163 


JC 

c ** 
c ** 
c ** 
c 

290 


PCM-(0.26*ALPHA*ALEDO*RADA*C0NST>/40.  " " 

= determine  heat  pipes _ __ 

HTPIPE=CtjMAX*LNGTH)/3.41 

1ERR=10011011  " 

GO  TO  380 

“orbit'  LT  5007” orbital  inclination  gt  jo"  "degrees 

SUN  ORIENT* D AND, 

3-AXIS  STABI  LX2.ED EQUATION  2. 2,2.1) 

ALPHA=0.08 

EPSL0N=0»73 

: DETERMINE  RADIATOR  AREA 

RA D/UWaX? C ( SIGMA^EPSLON+IMAxV^T^C EMISS*EP$LON)-IALBDO*A LPHA )T 

DETERMINE  HEATER  POWER  v 

HTP  PWR=1 .25* ( I SIGMA*EPSL0|UrADA*TMIH**4  )-QHIN-(  EMISS*fcPSLON) ) 

“DETERMINE-  PC M MASS  ~ 

PCM-  ( Q.26*ALPHA*A lBDU*RADA*CQNST)/40  . 

DETERMINE  HEAT  PIPES 

"~HTPIPE=<  CMAX+O^fHT/3741  — 

IERR=10011011 

GO  TO  380  ' ~ 

HERE  IF  ORBIT  GT  19000 

GO  TU  (340,310,310),  ISATOR 


00006830 
00006840 
00006850 
' 00006860" 
00006870 
00006880 
'00006890 
00006900 
00006910 
00006920 
00006930 
00006940 
00006950 
00006960 
00004970 
’ 00006980 
G0006990 
00007000 
00007010 
00007020 
00007030 
00007040 
00007050 
0U0Q7060 
00007070 
G0007080 
00007090 
00007100 
00007110 
00007120 
00007130 
00007140 
00007150 
00007160 
00007170 
00007180 
"00007190 
00007200 
00007210 


ISN  0164 
1SN  0165 


ISN  0166 
ISN  0167 


ISN  0168 


ISN  0169 


i 

00  ISN  0170 


ISN  0171 
ISN  0172 


ISN  0173 
ISN  0174 


ISN  0175 


ISN  0176 


C ** 

c ** 
c ** 


c 

c ** 
c ** 
c ** 
c 

330 


IC0NF=NC0NF( 1 ) 

GO  TO  (320,320,330,330,330),  ICONF 

' ORBIT  GT  19000  AND 
SOLAR  1NERTALLY  ORIENTED  AND, 

STABILIZED (EQUATION  1.1.1. 2) 

ALPHA=0.3O 

EpSLON=C>  .75  

DETERMINE  RADIATOR  AREA 
'RADA=QMAX/ ( SI GMA#EPSL0N*TMAX**4) 

DETERMINE  HEATER  POWER 

HTRPWR=1.25*7($IGMA*EPSL0N*RADA*TMIN**4)-QKiN) 

determine  heat  pipes  1 7 

-I7  p IRE  = (OMAX»LNOTH)/3.4I 

IERR=10111 

GO  TO  380  

ORBIT  GT  19000  AND, 

SOLAR  INERTIALLV  ORIENTED  AND 

3-AXIS  STABILIZED  (EQUATION  1 .1.2) 

ALPHA=0,30 

- 6PSL0N=0.75  — 

DETFRMINE  RADIATOR  ARE  A 

RADA-(2.*QMAX >/ ( SIGMA*EPSlON*TMAX**4> 

determine'  heater  power 

HTRPHR=I.25*(  (SibMA»EPSLQN*RADA*THIN:»*4/2.)— QHIN) 


00007220 
00007230 
00007240 
**00007250 
**00007260 
**00007270 
00007280 
00007290 
00007300 
00007310 
00007320 
00007330 
00007340 
00007350 
0Q0Q7360 
00007370 
0000 7360 
00007390 
00007400 
00007410 
00007420 
00007430 
00007440 
00007450 
00007460 
**00007470 
♦*00607480 
**00007490 
00007500 
00007510 
00007520 
00007530 
00007540 
00007550 
00007560 
00007570 
00007580 
00007590 
,0^007600 
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ISN 

0190 

c 

EPSL0N=0.73  

00008000 

“ — : — ~r~‘ 

c 

* 

DETERMINE  RADIATOR  AREA 

00006010 
nofin  Anpn 

ISN 

0191 

0 

C 

. 

RADa=QMAX/<  ( SI GMA*EPSL0N*TMAX**4)— (QS+ALPHA/P1E } ) 

00008030 

00008040 

c 

c 

* 

DETERMINE  HEAfCR  POWER.  — — 

00008060 

ISN 

0192 

HTRPWK=1.25*  ( ( S10MA*EPSL0N*RADA*TmIN**4)-' QMINI 

00008070 

00008080 

ISN 

ISN 

0193 

0194 

c 

IERR=1011 
GO  TD  380 

00008090 

00008100 

00008110 

c 

c 

** 

** 

ORBIT  &T  1900C  AND, 

EARTH  ORIENTED  AND,  , 

00008120 

**00008130 

**00008140 

c 

r 

3 AXIS  STABILIZED  ( EQUATION  1.2.1 > . 

**00008150 

ISN 

.0195 

370 

ALPHA— 0.30 

00008160 
nnnrioi  7n 

I 

0196 

C 

c 

EPSLQN=0 .75  " — ; 

DETERMINE  RADIATOR  AREA 

00006180 

00008190 

00008200 

ISN 

0197 

c 

c 

RADA=(2.*QMAX)/l$IGNA*cPSL0N*TMAX**4} 

1 

00008210 
00008220 
• nnnfiftp^r. 

L 

C 

* 

DETERMINE  HEATER  POWER  — 

00006240 

ISN 

019S 

HTRPWR=1.25*ltSlGMA*LPSLGN*RADA*TMlN**4/2.>~OMlNI 

. 00008250 

DODD A? Ah 

T CM 

. C 

,c 

c 

* 

DETERMINE  DIODE  HEAT  PIPE  12  REG-DI 

000082-70 

00008280 

00008290 

UI77 

c 

HTPIPE— ( 0MAX*LNGTH  J/3.41  " “ 

00008300 

ISN 

T crvi 

0200 

IERR=I101H 

00C06370 

.00006320 

V4CLUX 

c 

c 

*** 

Go  fu  3bo  - - . . 

HERE  Wfc  will  size  the  battery  thermal  control  network 

00008330" 

.00008340 

00008350 

c 

c 

c 

*** 

~ 

00008360 

00008370 

00006380 

♦OPTIONS  IK  EFFECT* 


SOURCi , EBCDIC, NOL1S1 , NODECK, LOAD,NOMAP, NOFD1T, ID,NOXREF 


SOURCE  STATEMENTS  = 


215  , PROGRAM  SIZE  = 


♦STATISTICS*  NO  DIAGNOSTICS  GENERATED 
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LEVEL  21.7  ( JAN  73  ) 


OS/360  FORTRAN  H 


COMPILER  OPTIONS  - NAM 6=  HAIN,QPT=0 1,LINECNT=41,SIZE=OOOOK, 

SOURCE, EBCDIC, NOLIST ,NOOECK,LCAD»NOMAP»NOeDIT,IO»MOXREF 
ISN  0002  SUBROUTINE  COMM  ( IPIC,IERR,ITtbft,MCONF,lCHOSF»NCHOSEi  00008700 

ISN  0003  INTEGER  RESET, SfcO, SSS, GRP  “ ' 00006710 

ISN  0004  REAL  LXARG,NF»MODLOS»IBER  • 00006711 

ISN  0005  DIMENSION  IPIC ( 4 } , I CHOSE C 11) ,MCHUSE (11 ) ,KPIC ( 9i »MCONF( 6) , 0000&720 


9-34 


ISN  0024  ■ NCONF  ~="  MCONF('f>  

ISN  0025  DO  1 1-1,2  - 

ISN  0026  i BITRAT(I)  = .001  * BlTRAT(I) 

ISN  "0027  SSS=0"  7” * ~~  ~ 

ISN  0028  IF,  (MCONF(l)  .€0.  1 .OR.  MCONF(l)  .EC.  2)  SSS=1 

ISN  0030  1NX=1 

I SN  0031  ” IF  (nconf.eq^.ur.nconf.e6.5) 

C INITIALIZATION  OF  IPIC  AND  ICHOSE 
ISN  0033  ICC=IC+l 

ISN  0034  IF  ( ITER.NE. 0 )"  lCC=i 

ISN  0036  DO  10  I=ICC  ,9 

ISN  0037  10  K.CHOSECI  1=0 

ISN  0038  " DO  20' 1=1,9  

ISN  0039  KPIC(I )=IPIC(I) 

ISN  0040  20  IF  (ITER. EC .0 .AND .IPIC(l).tQ.O)  KPIC  ( I )=RE  SET ( I ) 

isn  0042  fI^ot;  — ' ’ 

ISN  0043  IF  (NCONF  *EQ • 2 .OR.  WCONF  .EQ.  4)F1=1. 

I$N  0045 IF  (FI  .EO.  0.)  KPIC(9»=0 

ISN  0047  IF  (FI  .EO.  1.1  KPICI6)=0  ' 

ISN  0049  IF  ( ITER.Nfc .0 ) IC=0 

ISN  0051  IF  (1C.NE.0)  00  TO  700 

ISft  0053  ” LIMPICd  )=1DB(1I  7 

ISN  0054  LIMP1C(2 )=IDB ( 2 ) 

ISN  0055  LIMP 1C (3 )=IDB (2 ) 

ISN  0056  LIMPIC  (4)"=IDB  (3 ) ' ; ‘ 

ISN  0057  LIMP1C(5)=IDB(3) 

ISN  0058  LIMPIC(6)=IDB(2) 

ISN  0059  LIMPICC7I=ID8(T)  

ISN  0060  * LIMPIC (81=108(5)  , 

ISN  0061  LIMPICl9)=rDB(6) 

ISN  0062'  CALL  &ESS~(BE1 A, BESSJ* 1)  ' 

ISN  0063  30  CONTINUE 

ISN  0064  IF  (NC0NF.GE.4.0R.BITRAT(2 J .EC.O)  GO  TO  40 

ISN  0066  B1TRAT ( L ) = (BI  TR  A I(  1 ) +BI  THAT  ( 21 )'*1  .3 

ISN , 0067  40  CONTINUE 

ISN  0068 RATEl=Ib£R(I) 

ISN  0069  " ' “RATE2=0  ' ' ' ' 

ISN  0070  DO  50  1=1,13 

ISN  0071 IF  (bITRAKI)  .OT.lBERd  ) ) RATE  1-1 B ER_(  lO) 


00009080 

C00G9090 

dooovioo 

00009110 
00009120 
00009130 
00009140 
00009150 
00009160 
00009170 
00009180 
00009140 
00009200 
00009210 
00009220 
00009230 
00009240 
00009250 
00009260 
00009270 
00009280 
00009290 
00009300 
00009310 
00009320 
00009330 
00009340 
00009350 
00009360 
00009370 
”00009380 
00009390 
00009400 
00009410 ‘ 
00009420 
00009430 
00009440 
00009450 
00009460 


ISN 

0073 

50 

IF  (BITRAT(2).GT.IBER(I|)  RATE2=I6ER ( T+l ) 

00009470 

ISN 

0075 

BITRAT ( 1 )=RATEl 

0G009480 

ISM 

0076 

SITRAT (2 )=RATE2 

00009490 

ISN 

0077 

IF  CNCONF.EO.il  60  TO  90 

00009500 

ISN 

0079 

ILRR=I 

00009510 

ISN 

0080 

IF  (LSGLS.EQ.C)  GO  TO  770 

00009320 

V 

C SGLS  BBAU  SELECTED  *******#*****#*»4****#******^*:|HS**:M‘***4*«t*i«‘* 

v***000 09530 

ISM 

0082 

IERR=0 

00009540 

ISN 

0083 

IC=1 

00009550 

C ONE 

HOUSKEEP ING  BIT  STREAM  ONLY  (THIS  SEMESTER) 

00009560 

C I IS  SGlS  2 IS  USB 

000095 70 

ISN 

006  4 

60 

IF  (OATAb(lBlyOl) . Ly.I)  GO  TO  70 

00009580 

ISN 

0086 

i=Ji+i 

00009590 

ISN 

0087 

IF  (Jl.GT.IDBU) ) GO  TO  760 

00009600 

ISN 

0089 

GO  TO  60 

00009610 

ISN 

0090 

70 

IF  ( BITRAT ( 1 ) ,GT . 126.)  GO  TO  BO 

00009620 

ISN 

0092 

IF  CAbS(DATABClB2,JI)-1.024)  .LT.  .Oil  GO  TO  690 

00009630 

ISN 

Q094 

00009640 

ISN 

0095 

IF  ( Jl.GT.IDB(l) > GO  TO  760 

00009650 

rsN 

0097 

GO  TO  60 

00009660 

ISN 

0098 

80 

IERR=2 

00009670 

ISN 

0099 

IF  (BlTRAT(l) .NE.256)  GO  TO  770 

00009680 

OJ 

ISN 

0101 

1ERR=0 

00009690 

ISN 

0102 

IF  ( DAT  ABC  IB2  « J1 ) .EQ'.I.  7 ) GO  TO  690 

00009700 

is  ft 

0104 

J1=JI+1 

00009710 

ISN 

0105 

IF  (Jl.GT.IDBCl))  GO  TO  760 

00009720 

ISN 

0107 

GO  TO  60 

00009730 

C END 

OF  BEAU  SELECTION 

00009740 

ISM 

0108 

90 

IC=2 

00009750 

ISN 

0109 

KXMTR=1 

000C97  60 

ISN 

0110 

GO  TO  UO 

00009770 

ISN 

0111 

100 

IC=3 

00009780 

ISN 

0112 

KXHTR^Z 

00009790 

ISM 

0113 

110 

CONTINUE 

00009800 

c 

00009B10 

C ANTENNA  SELECTION!  **********************<e******************»**4*******0000982Q 

ISM 

0114 

J2=KPIC( IC) 

00009630 

ISN 

0x15 

IF  (SEO.EQ.O)  GO  TO  250 

00009640 

ISN 

0117 

IF  CSSS.EQ.O)  GO  TO  160 

00009830 

-36 


ISN  0119 

ISN  0121 
ISN  0123' 
ISfi  0124 
ISN  012b 
ISN~0127. 
ISN  0129 
,ISN  0130 
ISN  0132 
ISN  0133 
■ISN  0135 
ISN  0136' 
ISN  0137 
ISN  0139 
'ISN  0140 
ISN  0142 


vO  ISN  0143 
ISN  0146 
ISN  01vfc_ 
IS~N  0148 
ISN  0l49 
ISN  015 L 
ISN  0163 
ISN  0155 

ISN~0156~ 
ISN  0150 
ISN  0159 
ISN  0161 
ISN  0162 
ISN  0164 
'ISN  0166 

ISN  0167 
ISN'  0169' 
ISN  0170 
ISN  0172 


IF  '(  ALT • GT . 120CQ f GO  T0  ~i40 
C OMNI  18  OMNI) 

120  IF  <DATAtUAl,Jc).E0.11>  GO  TO  130 
J2=J'2+i 

IF  (J2.GT.ID8i2J > GO  TO  760 
GO  TO  120 

130  IF  ( GT ( K XMTR ) .Nfc .-1.E+ 10 j GO  "to  690 
GT(KXMTR}=-9. 

IF. < COVER. EG. 0)  GO  TO  b90 

gtTkxmtrT=-5. 

IF  (COVER. EG. V5.)  GT (KXMTR)=— 13. 

GO  TO  690 

"140  -I  ERR  =30 

IF  ( ALT. GT. 19323}  GO  TO  770 
IERR=0 

"IF  (GTIKXMTOTNE.-l.Eil0')'  GO'  TO  150 
GT(KXMTR )=2. 

C BICONICAL  (A) 


150  IF  (0AlAB(lAi,J2).fcG.2l)  GO  TO  b90 
J2=J2+I 

IF  .( J2.GT.IDb  (2) ) GO  TO  760 

GOTO  150  “ I 

160  IF  ( ALT. GT. 7000)  GO  TO  ciO 
IF  (NADJR.EQ.O)  GO  TO  190 
170  IF  (GT(KXMTR) .NET-i.E+lb)  GO  TO  180 
GT  (KXMTR ) =—l . 

C CONICAL  SPIRAL  (F2) 

180  IF  (DATABTTAI,  J2I.E0.41)  GO  TO'  690 " 
J2=J2+1 

IF  ( J2.GT. 108(2) ) GO  TU  760 
GO  TO  170 

i90  IF  (GRP.EQ.O)  GO  10  170 

IF  (GT(KXrtTR) .NE.-1.E+10)  GO  TO  200 
” GTIKXMTP )=2. 

C MONOPOLE  (FI) 

200  IF  (DATAE(IA1*J2).EQ-51)  GO  TO  690 

J2-J2+1  

IF  ( J2.GT . IDL (2 ) ) GO  TO  7b0 
GO  TO  200 


00009860 
00009870 
00009880 
bo'6d‘9890 
00009V, <00 
00009910 
00009920 
0000.99  30 
00009940 
00009950 
00009960 
00009970 
66609980 
00009990 
00010000 
000 100 10' 
00010020 
00010030 
00010040 
00010060 
00010060 
00010070 
00010080 
00010090 
0001C100 
00010110 
00010120 
00010130 
00010140 
00010130 
"66610160 
00010170 
00010180 
00  Of 0190" 
00010200 
00010210 
00010220 
00010230 
00010240 
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ISN  0173 

ISN  0175 
ISN  0177 

ISN  0178 
ISN'  0180 
ISN  0181 
ISN  0183 
ISN  0184 
ISN  0185 
ISN  0187 


ISN  0186 
ISN  0190 


ISN  0191 
ISN  0193 
ISN  0194 
ISN  0196 


ISN  0197 
ISN  0199 
ISN  0201 
ISN  0202 
ISN  0203 
ISN  0204 
ISN  0205 
ISN  0206 
ISN  0207 


ISN  0209 
ISN  0211 


ISN  0212 
ISN  0214 


210  IF  ( ALT.&T *12000 »)  GO  fO  230  ' 

C 


IF  tPUKXMTRl  .Nb.-i.E+lO)  GO  TO  220 
GT  (K.XMTR  ) = 10.  " 


C HELIX  (F3 ) 

220  IF  ( DAJFA b ( 1A1  *J2 ) .60 .3 1 ) GO  TO  o90 
' J2-J2+1  " ' " 

IF  (J2.GT.1DB12) ) GO  TO  760 
GO  TO  220 

230  " IERR=30  *'  ' 

IF  (ALT. GI. 19323)  GO  TO  770 
I6RR=0 

c 

IF  (&TCKXMTR) .NF.-l.E+lO)  GO  TO  240 
GT (KXMTR )=15. ' 

C PARABOLA  ~( B HIGH  GAIN)'* 

240  IF  (DATAb(lAl,J2) .fcG.l)  GO  TO  690 
_J2fJ2+l 

IF  ( J2.£T.ibB~(2j ) GO  TO  760 


GO  TO  240 
C 

C STEERABLE  PARABOLA  OPTION  WILL  BE  I NO LUOEO  NfcXT  SEMES TER 
250  IF  (ALT. LE. 12000)  GO  TO  120 

IF  (BITRAT (KXHTR) .GT.iO)  GO  TO  120 

GO  TO  120  . “ ~ — 

260  KXKTR=1 

GO  TO  280 

2 70  KXHTR=2  ' ' 

280  CONTINUE 
LUNI=0 

IF  (NCONF.GT'.i'.AND.KXHTR.tQ.T)  ~LUFf=i  ~ 

C 

C SPACE  LOSS 

I F ( SLANT  . t Q . -1 .1+10  ) jfLANT=SQRT  ( A POGE E ♦if A POGE 1+6 8 8' 677 
SL0SS=37 . 8+20* A LOG 10 ( FREGX (KXMTk ) *$LANT ) 

C 

C G TO  f " 

IF  (GTOT.NE. -1.6+10)  GO  TO  320 
IF  (GR.NE.-l.i+lO.ANP.T.Nfe .-l.E+lO^GO  TO  310 


00010250 
00010260 
00010270 
00010280 
00010290 
00010300 
00010310 
00010320 
00010330 
00010340" 
00010350 
00010360 
00010370 
00010380 
0001.6390 
00010400 
00010410 
00010420 
00010430' 
00010440 
00010450 
00010460 
00010470 
00010480 
00010490 
00010500 
00010510 
0001 05*20 
00010530 
00  0 1 0 540_ 
00010550 
00010560 
00010570 
000105B0 
00010590 

oobiofepo 

OOOTOOIO 

00010620 

00010630 


ISN 

0216 

ISN 

0218 

ISW 

022  0 

ISN 

0221 

ISN 

0222 

"ISN 

0223 

ISN 

0224 

ISN 

0225 

ISN 

0226 

ISN 

0227 

ISN 

0228 

ISN  0229 
ISN  0231 
ISM  0232 
ISN  0234 

nO 

t 

OJ 

00  ISN  0235 
IS?T"0236 
ISN  0238 
ISN  0239 
ISN  0241 

ISN  0242 
ISN  0243 

ISN  0244 
' ISN  0246 
ISN  0247 
ISN  0249 
ISN  0250 
ISN  0231 
ISN  0253 
“ ISN' 0254 
ISN  0255 
ISN  0257 


IF  ( N F . N E.  - 1 . C +1  Cl  .A  N Q . GR  . N L- . - 1.  E + i"0 ) GO  T0300  '*  

C NfcT.E,&.0  FOR  AFSCF  NET.NE.O  FOR  NASA 
IF  (NET.EQ.O)  GO  -TO  290 

GR  =44 “ • “ ‘ “ 

T=170 
GO  TO  310 

290  GR  =47 5 

T-220 

_____  GO  TU  310 

3C0  T=(10.**(NF/lb)-l)*29d~. “ “ 

310  6T0T=GR-10*ALnG10(TI 

320  CONTINUE : _ _ 

C TRANSMITTER  CIRCUIT  LOSS 

: IF  (TCLOSS(KXMTR|.NE,o)  GO  TO  330 

TCLOSStKXMTR )=lVO  ’ 

IF  (LUNI.cO.l.AND. (NC0NF.EU.2 .OR.NCONF.EQ.4 ) ) TCLOSS ( KXMTR ) =1 . 5 
330 CONTINUE 

C MODULATION  LOSS 

modlos=o 

IFTLUNI.EO.07  GO'  TO  340  ~ ' 

IERR=10 

IF  ( LSGLS.EQ. 0)  GO  TO  770 

IERR=0  ' " 

C BL  SSJ(2)=Jl(EbTA)  / 6LSS Jt  1 ) =J0{  o!l  TA ) 

MODLUS-AbS ( 10*AL0G10  C2*( BESS^C 2)*C0S C bAMMA I ) **2 ) ) 

340  CONTINUE  

C HARDWARE  DEGRDATION  LOSS 

IF  (LUNI.EQil)  GO  TO  360 

DO  350  I-I»14  ' : 

350  IF  ( BITRAT (KXMTk ) . E0.1BERCJ))  HDL0SS=6t R 1 1 « 3 J 
GO  TO  380 

360  I ERR=l6”  ' “ * 

IF  CLSGLS.EQ.O)  SO  TO  7?.0 
IERR=0 

IK=^2  ' * “ 

IF  (DATAMIB2*J1  ).  EG.  1.024)  1K=1 
DO  370  1-1 » 14 


00016646 
00010650 
GOO 10660 
0001 0670 
00010680 
0001G690 
"00010700“ 
00010710 
(FJ010720 
00010730 
00010740 
00010750 
00010760 
00010770 
00010780 
00010790 
00010800 
00010810 
00010820 
00010830 
00010840 
00010850 
00010860 
00010870 
"OOO 108  80' 
00010890 
0001 0900 
"00010910 
00010920 
000 1C930_ 
00030940" 
00010930 
00010960 
60010970' 
00010960 
GG010990 

ooo i io oo" 

00C11010 

00011020 


ISN  0258 

ISN  0260 
ISN" 0262 


ISN  02o3 


370  ' "IF  CBITRATC I)  .£:t,  «IB£  R ( J J ) HDL0SS=BEM I. IK)  00011030 

C BANDWIDTH  IN  DB  00011040 

360  IF  (B_W1DTH  ( KXMTR  )• few, ~i. 6+10)  bWIDTh"  (KXMTk  )=bITRAT(  KXMTR  ) *1000  OcGiiOSO 
'B  = 10*A"L0GlO(fcWIDTH(KXKT(< ) ) GOGilObO 

C 00011070 

C CALCULATION  OF  (- HP  OOOUOBO 


£RP=SIGNOi  (KXMTR  )+SLOSS+B—GTGT+LMARG (KXMTR I+TCLGSS  (KXMTR ) +PU  LOSS -*-400011096 


ISN  0264 


ISN  0265 
ISN  0266 
ISN  0267 
ISN  0268 
"ISN.  0270 
ISN  0272 
I SN  0273 
"ISN  0275“ 
ISN-  0276 
ISN  0278 
'o'l'SN  02T9" 
L ISN  0281 
^ ISN  0262 
ISN  0284 
ISN  0285 
ISN  0287 
ISN  0288 
ISN  0290 
1 SN  0291 

ISN  0293 
_ISN_0294 
ISN  0296 
ISN  0297 

ISN  0298~ 
ISN  0299 
JSN  0301 


INTLQS+MODLOS+MDLOSS— 228,6 
PW=10.**( ( ERP-6T (KXMTR ) )/10) 


Of'OIllOO 

oouuio 

c G00ilI20 

C TRANSMUTES  SELECTION  ^^sa*#**#******^*********#**********#*****###:#^©!  11 


390 

‘400 


JKNSTR  A=0 
IC=KXMTR+3 
J3=KP1C ( IC ) 

IF  (LUNI.EO.O)  GO  TO  4-*G 

IF  ( D ATAB  ( IT3L  , J3 ££ ,"l ) GO  TO  -4  10 

J3=J3+1 

IF  (J3,GT.lDB(3) ) GO  KG  IbO 


410 


GO  TO  400 

IF  (DATAB(IB3»J1 ) .FQ.O)  GO  TG  4*0 
KNSTRA=1 


420 


IF  (DATAB(IBa#Jl  J-UJ-DATAL(i,j3)l  Gb  TO  -V60 
J3=J3+1 

IF  ( J3.6T.lDo(3) > GO  TO  lb 0 
GD  TO  400 

IF  (DATAB(IT2,J3>.EQ,0)  GO  TO  430 
J3=J3+1 

IF  ( J3.GT.IDBO)  ) GO  TO  >i>0 
GO  TO  400 


■ '®'0 
O 


‘••vjv.  t-<  OOC11316 

430  IF  (DATAb(Ib2,JI),FQ.DATAbtiT3,J3]  ,OR.DATAB<  1B2,  J 1 » .cO.tFA^B  ( 1 T4»  J00O11320 


00011140 

oooinso 

00011160 

U00IL170 

6OO1U8C 

00011190 

00011200 

00011210' 

00011220 

qooii230_ 

000x1240 
00O1 1250 
0001 1260 
00011270' 
0001128b 
00011290 
"OQO i 1300 
000  0310 


1311  GO  TO  460 
J3=J3+1 

_ IF  ( J3»GT.IDB (3)1  GO  TO  760 
GO  10  400 
440  CONTINUE 
C NON  UNIFIED  TRANSMITTER 
"450  "CONTINUE 

IF  (bITRAT(KXMTR)/1000.LE„DATAdUT6,J3)  > GO  TO  460 
J3=J3  + 1 


00011330 

00011340 

00011330 

00011360 

00011370 

00011360 

00011390 

00011400 

00011410 


ISN 

0302 

IF  ( J3.GT.IDBI3J  ) GO  TO  7o0 

“00011420 

ISN 

0304 

GO  TO  450 

00011430 

ISN 

0305 

460 

IF  (LSGLS-EO.O)  GO  TO  470 

00011440 

ISFT  0307 

iF  (DATABUTS, J3f.EQ.iT  GO  TO  470 

00011450 

ISN 

0309 

J3=J3fI 

000 1 1460 

ISN 

0310 

IF  (J3.GT.ID&(3J1  GO  TO  760 

00011470 

ISN 

0312 

GO  TO  440  ' * ’ " 

00011480“ 

C FR EQIJENCY rPOWt  R* AND  MODULATION  COMPATIBILITY 

00011490 

ISN 

0;>13 

470 

IF  ( FREUXl  KXMTR  1 .GE.Da  FAE-UT7,  J3  ) .AND.FREOX (KXMTR  > -L& 

.DAI Ab ( IT8, J30001 1500 

111  “GO  TO  480" 

oooifsio' 

ISN 

0315 

J3=J3+1 

00011520 

ISN 

0316 

IF  ( J3.GT .IDB (31 ) GG  TO  760 

00011530 

ISN 

0318 

GO  TO  390 

00011540 

ISN 

0319 

480 

IF  (PW.LE.DATAbl iT9*J3J)  GO  TO  59G 

00011550 

ISN 

0321 

J3-J3+1 

00011560 

ISN 

0322 

IF  (J3*GT'.'iDB<3)>  GO  TO"  760 

00011570 

ISN 

0324 

GO  TO  390 

00011580 

Tsn 

C MODULATION • PHASL=1  ,FRtQUtNCY=2,  AHPL3TUDE=3 

00011590 

0325 

490 

IF  (LSGLS.eO.l)  MODX (KXMTR )=1 

00011600 

ISN 

0327 

IF  (MODX(KXMTR) .EC.OI  GG  TO  50G 

000 116 10 

ISN 

0329 

IF  (MODX  C KXMTR) .EQ.0ATAo(ITlG,J3) ) GO  TO  500 

00011620 

ISN 

0331 

J3=J3+1 

00011630 

ISN 

0332 

IF  (J3.oT.lDB (31)  GO  TO  760 

00011640 

ISN 

0334 

GO  TO  390 

00011650 

ISN 

0335 

500 

GO  TO  690 

00011660 

ISN 

0336 

510  CONTINUE 

00011670 

C 

00011680 

C RECEIVING  ANTENNA  SELECTION  ********************W**>**** 

************* ooo 11690 

ISN 

0337 

IC-6 

00011700 

ISN 

0338 

IF  (FI  .EQ.  1.)  GO  TO  690 

00011710 

TSN" 

0340 

IF  (S6d.E0.0l  GO  TO  520 

00011720 

ISN 

0342 

IF  (SSS.EO.C)  GO  TO  330 

00011730 

ISN 

0344 

520 

IF  (DATA&(1AI,J7) .£0.1 I)  GO  TO  640 

00011740 

ISN 

0346 

J7=J7+i  

000il75d 

ISN 

0347 

IF  ( J7.GT.IDB (21)  GO  TO  760 

00011760 

ISN 

0349 

GO  TO  520 

00011770 

ISN 

0350 

530 

IF  (NADIR.EQ.O)  GO  TO  550 

00011780  ' 

ISN 

0352 

590 

IF  (DATA8(IA1,J7» .LQ.4I)  GO  TO  690 

00011790 

ISN 

0354 

J7=J7+1 

00011800 

ISN  0405 
ISN  0407 

"KTT'0408 
ISN:  04i0 
ISN  0411 
ISN  0413 


ISN  0414 
ISN  0413 

"TSIT&Sn 

ISN  0418 
ISN  0420 


IW  0421 
ISN  0423 
ISN  0424, 


p ISN  0426 
* ISN  0427" 


'isiTTPSSIF 

ISN  0430 
ISN  0431 
ISN  0433 


ISN  0434 
ISN  0436 


ISN  0438’ 
ISN  0439 
ISN  0440 


IF  I J5*GT«ID8{5f)  GO  TO  760  ~ " 

GO  TO  ‘610 

c command  rate_  _ _ 

IF  TDATAB I IC  3 » J 5 ) .GE • D ATAb II R2  * J4 i )~G0 TO  690 
J5=J5-*-l  ■ 

IF  tJS.GT,IDB(J5n  GO  TO  760 
GO  TO  610  ‘ ‘ 


650 


00012200 

00012210 

00012220 


00012230 

00012240 

00012250 

00012260 

00012270 


C D1FLEXER  SE  LECTION  £#00012280 


660  IC-9 

IF  (FI  .EQ.  0 
C LINK  SGLS  OR  USB 


.)  GO  70  690 


670 


IERR=IO  '•  ” 

IF  (LSGLS.EQ.O)  GO  TO  770 
IERR=0 

I F (OATAbTTd  1 » J6  J •EiiTTj  'GO  TD  — 680 
J6=J6*1 

IF  ( J6.GT.IDB (6) ) GO  TO  760 


GO  TO  670 
C DIPLEXtR  POWER 
680  JT=KPIC(4| 

IF  (DATAB  ( ID?  » J6)  .GEVoaTaB  (IT 9i  JT T ) GO  TtF 690 


00012290 

00012300 

00012310- 

00012320 

00012330 

00012340 

00012360 

00012360 

00012370 

00012380 

00012390 

00012400 


GO  TO  ?©0 


J6=J6+1 
JF  (-J6.GT.I0b  (6 ) ) 
GO  TO  670 


C~‘  PROGRAM  CONTROL  AND  BOOK  KF-i.PING 


C J 1-BASEBAND  ASSEMBWUNIT 
C J2-TRAWSMlfTER  ANTENNAS 
C J3-TRANSMJTTER 


C J4— RECEIVER 
C J5-S1GNAL  CONDITIONER 
C 36-DIPLEXbR 

JT-RECEIVER  ^NTfcNNA 


C 
690 


00012410" 
00012420 

_ 00012430 

00012440 

00012460 

_******* ********  *******  ,•?***  ****** *#**000124o0 

-Q0Q^2470', 

00012480" 

0001249.0- 

. “ 00012500 

000125-10  * 
00012520  ' 


IF  (IC.E0.2.0R;IC.E0.3)  KPIC(IC)=J2 
IF  IIC.EQ,4.0R,IC.FQ.5)  KPIC(IC)=J3 


KONT=0 
1N=KPIC ( IC ) 

IF  tlN«NE.Q)  KChOSMlCI=DATA6(  1;IN) 


00012530 
00012540. 
00012550 
' 00012560' 
00012670 
00012580 


ISN  0442 
ISN  0443 
ISN  0445  _ 

ISN  0447 
ISN  044* 

ISN  0451 
IS*T  0452"“ 
ISN  0453 
ISN_0454 

ISN  0455 

ISN  0456 
ISN  0457 
ISN  0459 
ISN  0461 
ISN  0462 
ISN  “0463 
ISN  0465 
ISN  0466 
ISTT  0468 
ISN  0469 
ISN  0470 
^ ISN  0471 
' ISN  0473 
w ISN  0475 
ISN  0476 
isfo  0478 
ISN  0479 
ISN  0480 


ISN  0481 
ISN  0482 
ISN  0483 
ISN  0485 
ISN  0486 
ISN  0487 
ISN  0488 
ISN  0489 
ISN  0491 


700  “ CONTINUE  " • 

IF  ( 1C .EQ. 9 .AND. ITER.NE.O)  GO  TO  740 

IF  (1C  .EQ.  9 .AND.  lpiC<4)  .EQ.  0>GO  TO  740 

IF  (IC.EQ.9f  GO  TO  7i0~  ' ' " “ 

IF  (2NX.EQ.l.AND.(IC.EQ.2.0R.rC.EG.<r)|  IC=IC+1 
ICX=IC+1 

GO  TO  (30,90 ;‘l00,260"t270f“5i0t570*606, 660), " lCX 
710  ICK=10-IC 

00  730  I=ICK,9 

ii=io-i  '"  ' 

IC=II-1 

IF  UtCHOSEOI  KEQ.O)  GO  TO  720 

IF  (KPIC (II ) + l.GT .LIMPIC (I  II)  GOTO  720 

KPIC(II)=KPICIII)+I 

GO  TO  740 

720""lF(KPIC(II)  . F_Q.  0)  &0~  Ttf  725 

KPIC(1I)=RESET<II ) • i 

725  IF  (II  .EQ.I)  kCH0SE(I)=-1 

730  CONTINUE"  ■ “ " ' * 

740  DO  750  1=1,9 

750 I PTC  C I )=KFIC  Cl) 

IF  (KONT.EQ.l  .AND.  K.C  HOSE ( 1 ) .N£«— 1. ) GO  TO  700 
IF  (ITER.NE.O)  GO  TO  752 
. DO  751  1 = 1,9 

IF'  (KCHGSF { I ) .EQ *0 ) Eli  TO-  75l“ 

NCHOSE(I)  = 1 
751  CONTINUE 

"752  CONTINUE 

C 

c 

J=0  ' ■ ■ 

DO  753  1=1,9 

IF  (KCHOSE(I).EQ.O)  Go  TO  753 

J=J+1  ' " ‘ 

I CHoSE ( J )=KCHOSfc I I ) 

753  CONTINUE 

IC0NV=J+1  - - - ..  -■ 

754  IF  U.FQ.9)  GO  TO  755 
J=j+l 


00012590 
00012600 
00012610 
' 00012620 
00012630 
00012640 
00012650' 
00012660 
00012670 
0001 2680 
00012690 
00012700 
00012710 
00012720 
00012730 
00012740 
00012750. 
00012760 
00012770 
00012780 
00012790 
00012800 
00012810' 
00012820 
“00012830 
00012640 
00012830 
00012860 
00012870 . 
00012880_ 
00012890 
000 S 2900 
00012910 
00012.920 
00012930 
00,012940 
00012945 ' 
00012950 
noovpQAn 


9-44' 


ISN  0492  ' 

ISN  0493 
ISN  0494 
ISN  0495  ~ 
ISN  0496 
ISN  0*91 
ISN  ‘ 0498” 
ISN  0499 
ISN. 0500 
ISN  0502  " ‘ 
ISN  0504 


ISN  0506 
ISN  0508 
ISN  0509 
ISN~05lO 
ISN  0511 
ISN  0512 
ISN  0513 
ISN  0514 

TS1T05I5 
ISN  0517 
ISN  0519 
1SN~  052,0 
ISN  0521 
ISN  Q522 

IW  0523 

' 

ISN  0524 


ISN  0525 
ISN  0526 
TSN“0527 
ISN  0528 
ISN  0530 
ISN  0532 
ISN  0533 
ISN  0534 


ICHOSEf J )=0  " ' 

GO  TO  754 

755,  continue 

ICh6s‘e(ICONV)=0 - --  

ICHOSEf ICQNV+1 ) =0 
_I0B6=IpfH6i 

DO  780  1 = 1,9  — - 

DD  780  J=I , IDE6 

JLF  (DATA&CI,vl>  .NE.  ICHOSE (II)  GO  TO  780 

IF  ( DATAB  ( 22 , J ) .fctf.  0.1  GO  TO  780  ~ 

-tIo-riS!?S56<.^0?K,-r*EQ*  DATAal22*J>  -OR.  ICHOSE flCONV+l)  .EG. 
* t>ATAB(22,J))  GO  TO  760 

IF  I ICHOSEf  1C0NV)  .NE.*0)  GG~T6'781 

I CHOS  E 1 1 CONV ) =D  ATA  8 1 22 , J » 

GO  TO  780 

781  ICHOSE  ( ICQNV+1 ) =MTabT22VJ1 

780  CONTINUE 

IDB7=IDB(7) 

DO  757  1=1,11  

00  756  J=1,IDB7 


IF  (DATAB  C 1, J ) INE .ICHOSE ( I ) j GO  TO  756  

IF  (I  .GS.  ICONVI  C0NVHT=C0NVMT+0ATAB(23,J1*NCH0SE(I) 
WT  = WT  ♦ DATAB ( 23  , J ) *NCHCl SE  ( I ) • 

VOL  = VOL  ♦~DATAB(24tJ)*NCH0SE(I) 

PL  = PL  ♦ DATAB (16  » J J*NCHOSE  f I ) 

PLMIN  = PLMIN  ♦ DA  TAB  ( 18,  J )*NCHOSE  (I) 

GO  TO  757  : 


756  CONTINUE 

C ’ 

757  CONTINUE 

RETURN 

760  CONTINUE  

IF  (IC.EQ.2.0R.IC.EQ.3)  KPIC(IC)=J2 

IP  (IC.EQ.4.DR.IC.E0.51  KP1C(IC)=J3 

K0NT=1  : 

GO  TO  710 
770  CONTINUE 


00012970 
00012960 
00012990 
00012991 
00012992 
00012593 
‘00012994’ 
00012995 
00012996 
00012997 
00012998 
00012999 
00013000 
00013001 
00013002 
00013003 
00013004 
00013010 
00013020 
00013030 
00013040 
00013050 
00013055 
00013060 
06013070 
00013080 
00013090 
00013100 
00013.110 
00013120 
00013130 
00013140 
00013150 
00013160  * 
00013170 
00013180 
00013190 
00013200 
00013210 


ISN  0535  " I CHOSE { 1 ) =— 1 ~ 

I$N  0536  RETURN 

ISN  0537  END 

t — — — - - 

♦OPTIONS  IN  EFFECT*  NAM6=  MAIN,GPT=01 ,LIMECWT~41*SIZfc-OOOOK, 


00013220 

00013230 

00013240 


♦OPTIONS  IN  EFFECT*-"  SQURCETEBCDIC »NOLISt  .NODECK  /LOAD .NOMA P,NOEDITV  1 d7N0XREF  ‘ ~ 

♦STATISTICS*  SOURCE  STATEMENTS  = 536  ^PROGRAM  SIZE  - 7994 

♦STATISTICS*  NO  DIAGNOSTICS  GENERATED 

\ 

******  END  OF  COMPILATION  ******  37 K BYTES” OF  “CORE  NOT  USED 

ft 


LEVEL  21. T ( JAN  73  ) 


OS/360  FORTRAN  H 


ISN 

COMPILER 

0002 

OPTIONS  - NAME=  MAIN,0PT=01 , LINECNT=41 ,S1ZE=00G0K, 

SOURCE .EBCDIC. NOLIST . NODECK. LOAD. NOMA P ,N0ED1 I *ID *NOXREF 
SUBROUTINE  BESS  (X.BESJ.NMAX) 

00013250 

ISN 

0003 

DIMENSION  BESJ(l) . TJ(200) 

00013260 

ISN 

0004 

EULER=0. 577215664901533 

00013270 

isKi 

0005 

PI=2. 0/3. 141592653589793 

00013280 

ISN 

0006 

NU22=20  - - 

00013290 

ISN 

0007 

IF  (10. -X)  10,10,20 

00013300 

ISN 

0008 

10 

HATN=(1.05)*X+25. 

00013310 

ISN 

0009 

GO  TO  30 

00013320 

ISN 

0010 

20 

HATM=35./(3.5— ALOG(X) ) 

00013330 

ISti 

0011 

30 

NU-HATN 

00013340 

ISN 

0012 

TJ(NU+2)=0.G 

00013350 

ISN 

0013 

TJ(NU+1) =0.000001 

00013360 

ISN 

0014 

- 

DO  40  J-l.NU 

00013370 

ISN 

0015,,- 

K=NU*1-J 

00013380 

ISN 

0016  <€ 

FK-K+K 

00013390 

ISN 

0017  * 

40 

TJ(K)=FK*TJ(K+1 )/X~Tj (K+2) 

00013400 

sD  ISN 

0018 

SUM=0.0 

00013410 

* ISN 

0019 

DQ  50  J=3,NU,^ 

00013420 

O'  ISN 

0020 

50 

SUM^S UM+TJ ( J) 

00013430 

ISN" 

0021 

SUH—SUM+SUM 

00013440 

ISN 

0022 

TK=1./(TJ  (D+SUMI 

00013450 

ISN 

0023 

N=1ABS(MMAX)+.1 

00013460 

ISN 

0024 

00  60  J=1,N 

00013470 

ISN 

0025 

60 

BESJ( J)=TK*TJ (J| 

00013480 

ish 

0026 

RETURN 

00013490 

ISN 

0027 

end  . 

00013500 

♦OPTIONS  IN  EFFECT* 

. " NAME=  MAIN,OPT=01,LINECNT=41,SIZE~000©K, 

♦OPTIONS  Iltf  EFFECT* 

SOURCE, EBCDIC .NOLIST, NDOECK.LOAD.NOMAP, NOEDIT, ID, NOXREF 

ygyyyi^ljllgyi 

SUUKCfc  STATEMENTS  = 26  .PROGRAM  SIZE  = 1604 

♦STATISTICS* 

r 

NO  DIAGNOSTICS  GENERATED 

*******  END  of  compilation  ****** 


12 IK  BYTES  OF  CORE  NOT  USED 


LEVEL  21.7  ( JAN  73  ) 


DS/360  FORTRAN  H 


COMPILER  OPTIONS  - NAME=  MAiN,OPT=01»'LIWECNT=4l»SiZ£=6o60K, 

SOURCE  »EbLr>IC*NOLIST ,NCjDfcCK.  LOAD, NOMAP  ,NOEDI T,  ID ,NQXREF 
..ISN  INTEGER  FUNC1  lONRfc  SE  T(K  ) 

ISN  0003  COMMON  /DECOM/lOB  ( 30  J .DATA  b { 55  ,*30  ) 

ISN  0004  IF  (K.tt.l)  RtShT=I 

. _ ,SN'  If  (K.fct,..2.UR -K.FO.  J..OR  ,K.tU.6i  R F.  Sc  T=I  Dri  ( 1 ) +1 

ISN  0008  IF  (K.Ew.h.OF  .K.rO.5  ) R£SET=IDci(2  )+l 

ISN  0010  IF  f K.t  Q»  7.0k«K.EU.8.UR .K. to. 9)  RESE T-1DBI K—4 J *1 

ISN  00 12_  RETURN 

ISN  0013  END 

*gPT_lUNS  IN  EFFECT*  _ NAME=  MAIN  , OF  1 =01,  L5 NECNT=4a,  S IZE=OOOOK , 

♦OPTIONS  IN  EFFECT*  SOURCE  ,EBCOIC  ,NGLIST, NODECK, LOAD, NOMAP ,NOtOITt  ID, NOXR.EF 

^STATlSflCS*  SOURCE  STATEMENTS  ^'  '~lk  ".PROtkAM  LlzT  = ~ "378 

*S T AT IS  TICS*  NO  P1AGN0ST ICS  GENERA TE  0_ 

***^**  END  OF  COMPILATION  *****4 


00013510 
00013520 
Ot  013530 
00013540 
00013550 
00013560 
00013570 
00013580 


■125k.  BYTES  OF  CORE  NOT  USED 


LEVEL  21.7  ( JAN  73  ) 


t!S/3,60  FORTRAN  H 


COMPILER 


ISN 

0002 

ISN 

0003 

ISN 

0004 

ISN 

0005 

ISN 

000  o 

ISN 

0007 

ISN 

0006 

ISN 

0009 

v0 

t 

cx> 

ISN 

0010 

ISN 

0011 

ISN 

00i2  ' 

ISN 

0013 

ISN 

0015 

ISN 

00 17 

ISN 

0019 

ISN 

0021 

ISN“ 

0022 

ISN 

0023 

ISN 

0024 

ISN 

0025 

ISN 

0026 

ISN 

0027 

ISN 

0029" 

ISN 

0030 

ISV 

0032 

C 

C 

C 

C 

c 

e 


OPTIONS  - NAME  — MAlNtd"PT-01,LlN6CNT=4i,SlZt=0000Kf 

,,  , SC?Uf<C  tULDlttNOLlSl  ,NODEtK,LGAD,NOMAP,NOH)IT,  ID.NOXkFF 
SUBROUTlNt  Sm  L(fv:uuiP,?J-CONF) 

COMMON  /USfRa/<KnMt(7f i) 

COKMLui  /CHDSl  /1CMUSI  ( 60  ) , NuhGS  t ( 60  ) »vCOST  ( 5 ,601  »RE  L (6*60)  » 

* T.HM  ( 4,6<  1 ,OPi  a ( 11  ,oG)  ,D8SKtD(7,60) 

COMMON-  /^TCn*/*rx«CY,USTARtIKL,MMDLLD,TRi;NC,mUNLfDf  ,Tf., 

* St” »H"  »^U»TUOLU,OCP»SfcIP,PMP,STAR  , SAUNV,MEF  , 

* *^*y^\V^AYiNV»p*™uL»LSL,XLTC'T,ClOI,FEtR,EfriNV,OPTE,XVtST, 

n?uc7^t/^:f<;^:,(t'G,,,TTTtAW»15»BS*AM»tF»Bt'»1C'»lA»Tb,TOTOPS 
DIMENSION  CHMKi<  »61  ,T  SUE  ( <>)  * I CI(  b ) .NtOUIP  ( 5 ) ,NCQNF(61 
DATA  ICI/G, 5,F, 10, 15/ 

DATA  Cl  NF/l.t 1.3,i.,2.»l .3,3*x.,2.  ,12*1.,  2., 

*■  .i—7  , 5*.  OOOi  » 3*  . 0002 , 1 j*.00007,  .000^/ 

FK=4. 5 

CONF  ROWS  ARF  ] TO  3 FOR  S AND  C 

6 To  8 FOR  AUXPRU 

3 TO  1C  FOR  DPI 
11  TO  i;,  FUR  comm 

16  Tl>  21  FOR  EP 

22  FOP  Ml  ’ 


DO  1 J^l,t 
TSAVfc ( J | =0. 
DO 
IF 
IF 
IF 
IF 


ISTRI^l 

ISTRT-itNU+1 
l£ND=NEOUlPtl) 
1EN0-1FN0+NE0U1P (I S 1 


4 IS=1 , 3 
(IS  .FO.  1 I 
US  *t»T . 1, 

US  .fcO.'I) 

(IS  .Gl.  1) 

TSUB( l)=0. 

TSUB(2)‘=6. 

C-G. 

NUM=0 

DO  2 J-lSTRr,l»Nr 
TCD=DBSKFD(  3,  jl+OtSM  DU,J) 

IF  (TCD  .Cl.  TSUEJUn  1SU6U1-1CD 
TC0=DBSKtL.(3,j)4-DtSKU  ( o.j  ) 

IF  UCO  .Gl.  T SUP  ( 2 J ) TSUF(2)-lCG 

C=C+(l. 3 33*DbSKt  i>( ltGl+i.^lsOBSKEDt  2, J> )*1000, 


ft#**1 


^ tf 


00013390 
000X3600 
00013610 
00013620 
GOO  I 3630 
00013O31 
00013632 
00013633 
00013640 
00013645 
00013650 
00013660 
00013670 
00013680 
00013690 
00013700 
00013/10 
00013720 
00013730 
00013740 
000x3750 
00013760 
00013770 
00013780 
00013790 
0001^800 
00013810 
00013820 
00013830 
0001 3840 
00013830 
OOC 13860 
000138-70 
00013880 
00013660 
00013900 
00013910 


9~49  ; 


IS'N  0033  " 

ISN  0034 
ISN  0035 
ISN  0036  ' 

ISN  003-7 
ISN  0038 
ISN  0654  *“ 
ISN  0040 
ISN  0041 
ISN  0043  " 
ISN  0044 
ISNQ045 
ISN~064? 

ISN  0049 

ISN  0051 

ISN  0052 
ISN  0053 
ISN  0054 

ISN  0055 
ISN  0056 

i sn  "oosi 

ISN  005 & 
rSN  OGoO 

isiv  ooi  I ~ 

ISN  0062 
3.SN  0064 
ISN  0065“ 
ISN  0066 
ISN  _0067_ 
ISN  006 e 
ISN  0069 
ISN  0071 
ISN  0072 
ISN  0074 
ISN_0075 
ISN  0076'  “ 
ISN  0077 
ISN  0078 


2 NUM=NUM+NCHUSt{ J ) * 

XNUM^NuM 

RtDUM=XNUM/N£uUIP<  IS ) 

■ IC=T  Cl ( IS ) +NCONF (IS) 

R=RF0U»**.125 

_ TSUB ( i > =60Nt- ( I C » 2 I +LONF ( IC  » 6 > *R*CONF (1C , 1 1 *C **.6667 
TSUB ( 4)=CDNFTi  C 1 3 ) +GON  F ( I C , 4 ) * R *t 
TSDG=TSUb(2) 

IF  (TSUB ( 2 > .LT.  T$UB(3)+TSUfc{4i  iTSLiO^TSUbO  1+TSUB  (4> 

T SUB ( 5 i =C0NF (iCil) *FK*T  SUE  I i ) 

TSUB(6)  = TSUBU)*TS0Q 

IF  (TSUB(5_>  .LT.  T$Ave<3i>  1SU&  (5)=TSAVEJ5> 

“ IF  ( TSUB f 5)  .GE i TSA  VE t 5 } )'TSaV& < 5 1 =TSUb 1 5 ) 

IF  I TSUB (6)  ,LE.  TSAVf(6l)  GO  TO  4 
DO  3_J^1»6  _ ___  ____ 

3 TS AVt < J) =TSUB ( J f ' " ' 

ISSAVE=IS 

4 CONTINUE 

NOW  DO" “MISSION  EQUIP 
DO  5 J=l»3 
JB0  5 I=lt7__ 

- J J=4- J 

IF  CSKOME 1 1 , JJ ) .GT.  0.)  GO  TO  6 

5 CONTINUE 

JJ=0  " 

6 UJ  .EQ.  01  GO  TO  20 
TSU&U>=0. 

“TSUB  (2|=0. 

C=G. 

_ D0_& 

f C D=  SKDNfel  3 * J ) Vsk  DMfc  ( 4 * j 7 
IF  (TCO.  &T.  TSUBCIH  TSU&(U=Itb 
TCQ=SKDME  ( 5 ,J  I +SKDME  £b»J) 

' IF  CICQ  .GT.  TSUB  (21}  1 SUB  (21=  ICU 
b C=C*(1.335*SKUME(jl,J  M-i.4l*SKDM(  (2,J>l*iOOO. 
jrsUblSJ^CONFf^Zri  )+C0NFU2,51*CUNFU2f  l)*C**.t»o67 
TS  U3 <4  * =C CNF ( 22 • 3) ♦CONFC 22  »4 1 *6 
TSDQ=TSUb( 21 

IF  (TSUBI2I  . tl  . T SUB ( 3 ) +TSU6(4 1 ) T SDQ=  TSUB ( 3 1 ♦TSUB (4  1 


00013920 
00013930 
00013940 
00013950 
000139&0 
00613470 
06613980 
00013990 
00014000 
000 1<*0  20 
00014015 
00014016 
d'06l40I7 
00014020 
00014030 
00014040 
00014050 
00014060 
00014076 " 
00014080 
00014090 
00014100 
00014110 
00014120 
00C14130 
00014140 
0O014150 
00014160 
00014170 
00014180 
00014190" 
00014200 
00014210 
00014220 
00014220 
00014240 
00014250 
00014260 
00014270 


ISN  0080” 
ISN  0081 
ISN  0082 
ISS  0004 
ISN  0036 
ISN  0088 
isn  oo'ev 
ISN  009C 
ISN  0091 
ISN  0092 ' 


TSUE (5 )=CONF (22 » 1 J#FK*TSUB  1 3 j 

TSUB (6 )=TSU6 ( 1 I+TSDQ  . 

_ _LB  ITSUBC5I  .LT.  TSAVe^n  TSUB(5I  = TSAVE(,C ) 
IF  ITSUb(S)  .GE.  TSA VE ( 5 ) ) T SAVE I Si -1  SUB C 5 ) 
IF  ( T SU8 (o)  .LT.  TSAVEC6J)  GO  TO  20 
• DO  <*  J = 1 ,6 

9 TSAVE ( J)=TSUP { J)  ‘ ' - - 

20  TSAVf  (6)=TSAVP 16 J+TSAVE (b) 
return 

ENT-  • - 


*0PTI9^_.Ifts  PfcCT*  MAIN >0f  T=01LL INtCWT«»I , SIZ E-OOOOK  . 


♦OPTIONS  IN  EFFECT* 

♦STATTS  TICS*  ‘ SOURC E 

« 


SOURC E, t Bt DIG r NOLIST  » NOPE CK» LOAD, NOMA P»N0EDI1 * ID»NOXRtF 
SfA  TIME  NTS  = ” ~ 91  .PROGRAM  SIZE  = ' ” "2202  ' “ ' 


♦STATISTICS*  NO  DIAGNOSTICS  GENERATED 

******  end  of  compilation  ****** 


00014280 
OOC.  1428b 
00GT4286 
00014287 
00014290 
00014300 
00014310 
00014320 
0001*330 
00014340 


101K  BYTES  OF  CURE  NOT  USED 


LEVEL  21.7  { JAN  73  ) 


OS/360  FORTRAN  h 


ISN  0002 


C 

c 


1SN 

isR 


isn 

ISN 


0003 

0004 


0005 

0006 


ISN  0007 


COMPILER  OPTIONS  - NAMt=  MAIN,0PT=01, L1NCCNT=41, SIZ£=OOdOKf 

SOURCE, EBCDIC, NOLIST, NODECK, LOAO, W0MAP ,NOtDIT» ID, NOXRt  F 

. ^SUBROUTINE  1NJT1L  (NCONfF,lEKR  1 

THIS  SUBROUTINE 'SETS  APPROXIMATIONS  FOR  ALL  VALUES  IN  ETWN 
WHICH  ARE  USED  utFORc  THEY  ARE  CALCULATED 
DIMENSION  NC0\f<6) 

COMMON  /UsfcRl/DPHl",F  t , f SMALL  ,XNU,  POOTO,f  AUX,TAUY,  TAUZ  ,f  , 

* PHIRXfPHlRY,  PHIRZ  , P OOTX,  POUTY  ,PDOTZ  , Xfci,  YN,  Zf4,P00TRX  , PDO TRY, 

* POOTRZ  , i OMEGS  , OMEGR  , P J , XNN,  K , MANV  , I PA  Y AW  , EPJ-^AX  , A Y , AZ , 

*EA,F  ANT, ALPHA »TL»TACCEL,XNNN,THnLD,PDOTAV,PDOTST,PHIEOV,i SAT 

COMMON  /USE P I / F0M1WT,E0M2WT,DIAMAX,ALT 

COMMON  /PiU'CUH/ACCRC Y , Cl STAR , j R ELr  MMDOLD , TRUNC , I TRUNC , DIE  , T E , 

* T OOLR , QCR ,S£ IR , PMR , PE , PU, TOOLU ,QCP ,SE IP , PHP , SAT R , SA TINV , MER 

* MEINVtPAYRfPA YINV,PAYQUL,GSE,XLTOT,CToT »FEER,Ffc£ INV,DDTE,XVEST, 
. * OPS,SK T AU(6) ,ROLP( 60 ) , T T T , A N, T S» BS,AM,TF,BF,TC,TA,TB,TOTOPS 


COMMON  /BTWN/WT » VOL, UT ,0 ,0 A, OY ,DZ , X J , YJ , Z J, R j ,FE , f I, P L,  PL MIN , 

* LMBDL" , AREA,SaTLG,WATE  »NC,ACSWP,HARNWT,THCMWT,CONVWT,TNKWT,PASSTR 

* SATTWT,TPRIM,IbTLOC , RADA, RADA E , RAT, HTRPWR,HTRPRB, 


ISN 
o"lSN 
ui  ISN 

*-  LSH 

'ISN 

ISN 

ISN 

Tsn 


0008 


0009 

0010 
0011 
0012' 

0013 

0014 

0015 


* HPT,HTPIP£,VCHP»HTPT»  FC»XNZtRO*COMRT ,ACSSN«BI FRA1  ( 2) , 

* EOBLGfSABOL&tSATWT 

IE8R=0_  

' ACCRCY=A~MINl(PHIRX,PHrRY, PHIRZ)"  ' " " 

EOMWT=f  UM1 WT  +*.  JM2WT 
_ SATWl=36.9*fcUMWT*».b72 

EQBVaL=.‘i*SATwt  " ' ' * ' 

TPRIM=T 

N=NCQNF(6) 


00000010 

00000020' 

00000030 

00000040 

00000050 

00000060 

00000070 

Goeooofco 

00000090 
00000 I oC 
06006110' 
00000120 
O_C00G130_ 
00  ( 00140 
,00000150 
00000160 


ISN  001b 


ISN 

ISN 

JSN 

ISN 

ISN 

ISN 


0017 

0018 
0019 
0021 
0022 
0023 


ISN 

ISN 

ISN 


0024 

0025 

0026 


GO  TO  (20, 1C, 30)  ,'N  ' 

HERE  IF  A bOX 

10  EQbLG~( EQBVOL*  3436 . ) ** . 33 3 

" EQBDlA=EQBLG  ' 

EQBSID=.707«=b0BDIA 
_ IP  (EQBDIA  .LL.  JHAMAX)  J>0  TO  11 
WBOIAs'dIAMaX 
E0BSID=.70  7*£Ut>DlA 

EQEL6=( EOeyUL*! 7 28.) /(FQ6SID*£UbSlU) 


11  SATIN X=(  SATWT/6.')*E'UBSin>E00SID 

SATINY=(  SATWT/I2.  )*(fcQBSID*EQBSID+Li)BLG*£QBLG) 
SAT1NZ=SATINY 


0G000170 
00000180 
00000190 
00000200' 
00000210 
00000220 
00000230' 
00000240 
00000250 
00000260 
00000276 
00000280 
00000290” 
00000300 
00GG0310 
00000320 
00000330 
GOGC0340 
00000350 
00000360 
000003 TO 


GO  TO  1QO  

C HERE  IF  A CYLINDER 

20_  SATOAM=  1 EQBVUL+2201.  K*.333 

eqblg'=satoah ~ - 

IF  (SATDAH  .It.  D I AH AX  I GO  TO  21 
SATDAM=OI AMAX 

' "^OBLG^E 6BV0L#220i •/(  $ATDAM*SATDAM ) “ 

21  SATINX=( SATWT*SATDAK*SATDAM/B. ) 

SAT1NY={  SATWTX12 .1*1  .73*SA  TOAM+SATDAtKEQ&LG^EQBLG  I 

satxmz=satina  ' — 

GO  TO  100 

_____ c _ HERE  IF  A SPHERE 

1SN  0038  30  SATDAM=tE-0aV0L*33Ce.9m'.~33j  " 

ISN  0039  SaTiNX=.J*SA7WT*$ATUAH*SATDAK 

ISN  0040  SAT1NY=SATINX 

TSN  ODaIT-  SAflNZ=SATINX  ~ — 

C IF  SATDAH  TOO  BIG  STOP  PROGRAM 

. l.SN  .£9±2 . IF  (SATDAM  .GT.  DIAHAX)  IERR=1 

^ ISN  0044  IF  (JE-RR  .GT.  0 ) ' RETU&N — — - 

u,  ISN  0046  GO  TO  100 

c SETS  VALUES  NEEDED  bY  S AND  C 

ISN  0047  100  IF  TNC UNFIT)'  . Wr  T)~  GO  T6T20  ‘ “ 

ISN  0049  RJ=SATINX 

ISN  0030  _ DX=. 3* SATDAH/ 12. 

ISN  0051  ' ' ‘GO  TO  200  I”  ' ‘ 1 ‘ — - - - 

ISN  0052  120  IF  (NCONF(l)  .N&.  2)  GU  TO  130 

ISN  0054  XJ=SAT iNX  * ' 

ISN  0S5S"~~  * ‘ YJ=SATTNY  - ■ 

ISN  0056  ZJ=SATINZ 

ISN  0057  D=SATOAM 

ISN  0058  DZ=.5*SATDAM  1 * 

ISN  0059  .IF  C NCONF (6 ) .EG.  2 ) GU  TO  200 

iSN  O^I IF  (NCONF  (6 ) .10.  11  DT  = .5*E0BLfc 

ISN  0&63  IF  TNCONFfbf  .TO.'TT  DT=.3* SATDAM  *'  " ‘ " 

ISN  0065  DX=D1 

JSN  0066  OY=OT 

ISN  0067  ’ ' * ' GO  TO”  200  “ ~ — “ - 

ISN  0068  130  IF(NCUNF{I)  ,CT.  5 ) GO  TO  200 

ISN  0070  _ _ XJ-SATXNX 


ISN  0027 

ISN  0028 
ISN  0029  ' 
ISN  00-30 
, ISN  0032 
ISN  0033 
ISN  0034 
ISN  0035 
ISN  0036 
ISN  0037 


00000380 

00000390 

00000400 

00*000410 

00000420 

00000430 

00000440' 

00000450 

00000460 

06.666470 

00000480 
00000490 
00000500 
00000510 
00000520^ 
00000530 
00000540 
00000550 
"o6b'665  60 
0000 05 70 
00000580 

60660590 
00000600 
00000605 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
OOf.  00690 

66606766 

00000710 

0GQ0072Q 

00000730 

00000740 

00000750 


ISN  0071  " ' YJ=SATINY  “ -----  - - - - 

ISN  0072  ZJ=SATINZ 

— ISN  0073 D=  SATO  AM 

ISN  0074.  “ IF  CNCONF  (6  j . f Q . 2 ) L'=F Q6DTA 

ISN  0076  OT=.5*EOBLG 

ISN  0077  IF  (NC0NF(6)  .EG.  3)  DT=.5*SATDAM 

ISN  0079  ~ DX=.b*SATDAM  ' ' '* 

ISN  0080  IF  <NC0NF(6)  .EO.  2)  DX  = .5*E0BLG 

ISN  0082 DY=bT 

ISN  0083  " ~ ~ “ DZ>l>T  ' ‘ “ 

ISN  0084  200  CONTINUE 

ISN  0085  _ 300  C0MRT=2000. 

ISN  0086  “ RETURN  ' " ” ' * - . — . 

ISN  0087  END 

♦ OPTIONS  IN  EFFECT*  NAME*  MA I N TOP T =6 f*  L I NE CN f =~4 i, S fZ E =00 OOK , “ “ 

IN  EFFECT*_  _ SOURCE  « EBCDIC  tNULIST, NO_DECK*_LOAD»NUMAPtNOfcDIT»  ID*NOXREF 
•STATISTICS*  SOURCE  STATEMENTS  = . 86  # PRu&RAM  SIZE  = 1280 

*S TATIS TICS*  NO  DIAGNOSTICS  GFNERAT FO  “ ~ 


00000760' 

00000770 

00000780 

00000790 

00000800 

00000810 

00000820' 

00000830 

0(000840 

00000850 

00000860 

00000870 

00000880 

00000890 


.««*» . . . __  . 109K  BTltS_QF  CORE  N01  USED 

I 

U7 

t at 


9-54  | 


LEVEL  21.7  ( JAN  73  ) 


OS/ 3,60  FORTRAN  H 


COMPILER 


ISN  0002 
ISN  OOp 3 


ISN  0004 
ISN  0005 
ISN  0006 

ISN  0007 
ISN  0006 


ISN  0009 
ISN  0010 

TW  ooii 


ISN  0012 
ISN  0013 
TSfc  0014 

ISN  0015 
ISN  0016 

! SN  0017 
ISN  "0018 
ISN  0019 


ISN  0020' 
ISN  0021 

1SFOO~22 
ISN  0023 

TSN  0024 

ISN  0025 


OP 1 1 mlS  - • NAME  = MAIN , OPT  =01 , L 1NECNT =4 1 ,"s f Z£ =00 OOK  » 

i ,cv  ^nuKCf  tFbCDICfNOLIST,NOOECK,LOAb,**GMAP,MOEDIT,lD,NOXREF 

nLUUtv  oat  a 

' SETS  ALL  DEFAULT  VALUES  ' * • — 

CUMMON  /USfcRl/DPHl  »FL  * TSMALL  *XNU»  PDQTO ,TAUX»TAUY,TAUZ»T, 

' isvSSi’J ,PDUTX.fPbUTY,PD0T2,XN,YN,ZN,PD0TRX,PD0TRY, 

* PDOTRZ  ,OM£GS,L-Mf  t-.R,PJ,XNN,  K,MANV,  I PA  YAW,  EP'i,  AX,  AY~,AZ,~ 

THSUCL^r  ’ PHlf OT' 1SAT 

rnMMnM  MX, SCSFL , 1 PRFL , OPSMS,  ARRA YN(  1 JT,3  ) *NMS£Q 

^i,StR4/1[JPTCK<3>*1MSSEP»1Sfc®»LSGLS.LUSB,FREq(2)tAPDGEEfNfcl 

* NAUlRtFRfcQK,C0MRAT,BWIDTH<2)  ° ’ 

Common'  /use rs/i volt, optemp  ' ~ - — --- 

/^PR^/tUPF,Mhl22H»Et'MiX‘-fEwMlYL,EQMlZL,fc0M2XL,E0M2YL, 
a -If  Q-^0WI  * 9 * £ EE9VL 1 V ’ E«  * YCG ,EM1 ZCG ,EM2  YCG  , 

* EM^ZCG,CCEEX(9),EEL0C(9),XtGSAl,XCGSA3' " ~ “ 

COMMON  /L)S£R7/1SATUR,0RB1NC 

COMMON  /USERg/SKDMfc (7,3 1 

’Common >useri/lqm i wTTtuMTwI^Df amax;alT — — ' - — 

r^u«!,!?N/U-FRR/Kfc0PT,SYSLB»kf:IXtD*SLttMX*ISPT»s,>EE<6),SPECl,lSUB 
JCOMMUN  /USt RL/NFv ,NL V»XMER,XME  UtFFEPCI ,1M£ TYP 

DATA  DP^ 1 t FF  , 1 SMALL, XNUt PDOTO, tAUX , TAUY, TAUZ, T/.25 ,4.1 ,100.,  “ 

* 3. ,1. ,3*62206000. ,24./ 

COMMON  /USER9/CA, Cfc 

*PD0TRZ/3*^7  5H6*j  * 

- -2fa|bfs5”^f--,-PJ.»xw’'**i*MANV,IPAYAW/l. 5708,o0.f 75., 21. ,1,1,0/ 

DATA  EP1  ,AX,AY , A Z/. 000 1,3*. 05/  - ' “ 1 •*  'St'  - 

DATA  EA , fcANl  » ALPHA  ,TL,T ACCLL tXNXiN, THOLD ,PDOTAV,PDOTS  I , PHIFOV 

T /»1,»1, lc.,1.,20.,4., 100000. , .01, .0667,40./ 

DATA  CLlFE/500007/ ' - ----  - — 

D^TA  riTRMX, SC SFL , TPrFL ,UPSMS , ARRA YN, NMSfc 0/1024000., 36*0.  , 

"DATA  IVOL T , OP Y EMP/O ,15#/ 

*DpWIL4H/0Co’oH?SrnL^LSInUS!,FR6Q,APOGEEtNETtNAD1H,fKEOR»COHRAT» 
-.E^1L.T^0»0LP*?ji_»0,_2*£4_50.  *500., 0,0, 1800.,  1000., 2*-l.E10/ 

OATA  POPF,MB127HftOMlXL,EOMiYL;EQMiZL,FOM2XL7FOM2Yl/2;,l,  ’ ~ 

* 5*40./ 

Data  LQM22L, I SBOFG*NUM_£EQt fcfcOWT , tfc QVL,£M1YCG,£M1ZCG,EM2YCG 


00000900 

00000910 

00000920 

00000930 

6.7000940 

GC00G950 

0000096G 

00000970 

,00000980 

00t>00990_ 

‘60001006 
000010 10 
00001020 
0000I030 

00001040 
00001050 
' 00001060 
00001070 
00001080 
00001090 
00001100 
ooooirio 
00001120' 
00001130 
00001140 
00001150 
00001160 
00001170 
0000  1180 
0000 1190 
00001200 
00001210" 
00001220 
00001230 
00001240 
00001250 
0000 1260 


ISN  0026 
ISN  0027 
ISN  0028 
ISN  0029 
ISN  0030 
ISN  0031 

ISN  0032 
ISN  0033 


*/40. *2*0,21*0./ 

DATA  EM2ZCG,CGEEX,fcEL0t,XCGSAl,XCGSA3  /0.,9*2.,9*.i.  ,2*1./ 
DATA  ISATUR,0k6INC/l,28.5/ 

DATA  SKrW/2i*0./ 

DATA  CA,O/10.tI  ./ 

DATA  LUM1  WT»hUM2KT,DlAMAX, ALT/2*A^>5.  ,l.c0.,500./ 

DATA  KtOPT *SYSLb  »RFI X£D , SLRMX * ISPT , SPEC > SPEC! » 1SUB/1 ,0. « 

* l.^OOOO.tO^^.V,  .6,18. ,0/ 

DATA  NFV,N0V,XMLR,XMEU,FEEPCT,IMETYP/<*,1,G.,0.,.07»2/ 

END 


^OPTIONS  IN  EPf-tCT* 


N A M t = MAi.\,UPT=0I,LlNiE.CNT=4A»SIZE  =OjO 0 ivK  , 


♦OPTIONS  IN  EFFECT* 


SOURCE  , EBCDIC  »NGLI  ST,  NGDECK,  LOAD  ^OMAPjMiOEDIT,  ID  *8fOXREF 


♦STATISTICS*  'SOURCE  STATEMENTS  32  * PROGRAM  SIZE  = 


♦STATISTICS*  NO  DIAGNOSTICS  GENERATED 

******  END  OF  COMPILATION  ******  1I7K  BYTES  OF 


00001270 
0000X280 
0000 1290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001350 
• 00001360 


CORE  NOT  USED 


LfcVEL  21.7  ( JAN  73  ) 


HS/360  FORTRAN  H 


ISN  0002 


C 

c 

c 

c 

c 


ISN  0003 


ISN 


0004 

0005 


COMPILER  OPTIONS  - NAME-  MAIN, 0 P T =0 it L 1KLC.N T=4 1 f SI Z E =00 0 0 K, 

SUBRUUT1  Nt*^COSTS^^Nf  ONF^Nfc  0U1P  )^^  COAD , NOMAP  tNOfcDil  ,1D,NUXRFF 

Jr^i«#t!^*i^************V*^****^**#****#*********************** 00001380 
£ colk  FOR  rfRN«T^^L^TS  C0STS  F0R  WTALD6  1T£MS  AND  CALCULATES  **00o!!u£ 
*****?S-Ii>  F0R  CtR  iTEMS  ANu  STORES  THEM  FOR  OUTPUTTING  **00001400 

********  .**  * ***********  *****  ***,  **************#w#M-i#i#li+iM[!(s#^#4(3IIM>®®JJ0  1410 

f,I«nnL’!nT,D’r'X’PY>nZ,XJ,yJ’ilJ,RJ,FF»llTPL»PLM1N»  00001430 
A»  SATLo,  WATE ,r<C  ,ACSWP ,HARNWT,  THCMWT »CONVH  T.OOOO  1440 

T^«TmPAS->TK,bATTW,,1PRIrt»IBTL0C*kADA»RADA6*PATt  00001450 
- “S^j”I^P5^,HPI»HTpl^fyCHPAHTPTtFctXN2ERO,CONRT,  00001460 
ALSSN,BITRAT(^J  , FQBLG, SABOLG  » SATwt “ 60001470 

/CHOSt/lCHOSE (60 ), NCHOSfc ( 60 ), COS! (5,60) tPFL<6, 60) ,THM (4, 60)00001490 

»DPJA( 11,60)  • 00001566” 


vO 

i 

(Jn 

O' 


ISN 

ISN 


66  06 
0007 


ISN  0008 


1 

2 

3 

4 


COMMON  /h  TWN/ 


COMMON 


COMMON 


/PR  TCUM/ACCRC  Y ,C  ISTAR,  IREL,  MMDOLD  ,TRUNC  , ITRUNC  , DE  ,Tfc,  TOtLR,  00001510 

— J^?-E^^R»^.»py*TP9i^*QCy»SEIP,PMP1SATR,SATINV,  00001520 

yN^HMW.MYR.PAYWV.PAyuUL.ttt  .XLTOT, CT'oT ,'FSER ,60001530  ' ' 
I?  ^ * E*D  Jf  * ST,UPS,SKT  aV  (6)»RUL0(60),7  ,AN,TS,t!S,  0000 1540 


_ AM.TF^EF.TC.TAtTbtTUIOPS 

COMMON  /USERC/NFV »NUV»XMER ,XM1 U, FEEPCT, IME  TYP 
DIMENSION  RL  ( 6),RT(6)  , i\P(6)  , BE  (61  ,BT{6)  ,BP(6)  ,UPS(6)  , 


1 

2 ‘ 

3 

4 

DATA 

1 

2 

3 

4 

— u 

5 
fc 
7, 

8 

9 

A' 


2L**il!:R  < if PI&J  »FT(  6)  , FE(  6 ) ,NCONF ( 6 ) ,NEQU IP (5  ) . 
CCJMPR  (60),  COMP  0(60), SUB  t(7)  ,SUBT  <7)*SUBRf7)  , 
SUbuE(7)  ,SUbUP(7)  ,,SUBU(7)  ,C0MP5E(60  ) ,C0MP5P(  60)  , 
SUE  5P(7),SUt5E(7) 


FR 

FP 

FT 

FE 

Rf 

RT 

RP 

UE“ 

BT 

DP 


/o*l;/, 

/6*1./,  .... 

~/6*l./,  — 

/6*1./, 

/6000. , 105603. ,40500. ,5 J700. ,21638  . , 

108000./, 

,/13GG*  *94719  • 9 2 5600  # f 44100*  y 1176*:  • ,402  GO*/OGOC1690 
/2300. ,5882. ,3900. ,23500. ,67408. ,32400./,  00001700 
/.  4005  , .3334,  .4005  ,.8156, .585,  .4005/,  -.00001710 

/.4C05, .286V, .4005,. 71 37, .678,. 4005/,  00001720 

/.  3334,  .6960,.  3334,  .t>7fc  I , .54o0,  . 3334/,  . 00001730 


00001350 
00001560 
00001570 
00001580 
00001590 
00001600 
00001610 
0000 Ao20 
00001630 
00001640 
00001650 
00.001660 
00001670 
00001680 


8 PT 


ISN 

0009 

SEIR  c 0- 

ISM 

0010 

QCR  = 0. 

ISN 

66  'll 

PMR  - 0. 

ISN 

0012 

SUMTOi  = 0 

ISN 

00 13 

TOOLR  = 0 

ISN 

001* 

SF IP  - 0. 

ISN 

001.5 

QCU  = 0.- 

ISN 

0C16 

PMP  - 0. 

ISN 

0017 

SUMP*-  = 0. 

ISN 

001P 

' TOT  SUM  = 0 

ISN 

0015 

SATR  = 0. 

ISN 

0020'  V 

SATINV  ~=  0, 

ISN 

0021 

MEINV  = 0. 

ISN 

0022 

PAYS  =0. 

ISN 

002? 

PAYINV  =C„ 

ISN 

002* 

PAYQUL  = 0, 

ISN 

0025 

GSE  = 0. 

ISN 

0026 

XL.  TOT'  = 6. 

ISN 

0027 

CTOT  = 0. 

ISN 

00,4.8 

FFER  - 0. 

vD  ISN 

002*?. 

FEtTNV-  0. 

ui  ISN 

0030 

DD7F  = 0. 

-1  isn 

0031 

XVE.ST  ss  0. 

ISN 

0032  " 

OPS  = 0. 

ISN 

0033 

OE  - 0- 

ISN 

0034 

Tb  = G. 

* ISN 

0035 

PE"  ='  6. 

ISN 

003t> 

PU  = 0. 

ISN 

0037 

sysr  =0. 

ISN 

0038' 

SYS0=0. 

ISN 

0039 

Q5=0. 

ISN 

0040 

P5P=0. 

ISN 

6o*'i 

>5l=0'# 

ISN 

004.2  . 

00  1 1=1,7 

ISN 

0043 

SU B5P(I)=0. 

ISN 

0044 

SUB5F ( 1 1—6. 

ISN 

0045 

SURE (11=  0. 

ISN 

0046 

SU6T ( I ) = 0. 

SF  ~/l B/ 


00001740 

00001750 

00002.760 

00001770 

00001780 

00001790 

00001800 

00001810 

00001820 

00002830 

00001840 

00001850 

00001860 

00001870 

00001880 

00001890 

00001900 

00001910 

ooooioikcf 

00001930 
00001940 
00001950 
0G001960 
00001970 
0000 1980' 
00001990 
00002000 
00002010 
00002020 
00002030 
00002040 
00002050 
00002060 
00002070 
00002080 
00.002090 
00002100 
00002110 
00002120 


ISN  0047 
ISN  0048 
ISN  0049 
ISN  0050 
ISN  0051 
ISN  005 2 
ISN  0053 
ISN  0054 
rSN  0055 
ISN  0056  “ “ 
ISN  0057 
ISN  0058 
ISN  0059  ' 

ISN  0060 

ISN  0061 


i ■ 

tji 

00 

. ISN  0Gt>3 
ISN  006* 
ISN  0065 
ISN  0066 
ISN  0067 
' ISN  “0068 
ISN  0069 
. ISN  0070 
~T5n  0072 
ISN  0073 

ISN  0075 
ISN  0076 


SUBR ( I )=  0.~  " ' " 

SUBUE(I)=0. 

SUBUP ( 1 ) =0 . 

1 suBufiT  =o.  

DO  <r  .1=1,60 
COMPU(I)=0. 

2 COM PR (1 ) =0.  _ 

. X(l)  = WATb 

- X (2J|  = HARNW1 
X(31  = Th'CMWT 
X ( 4 ) s CONVWT 
_X(5)  j=  TNKHT 
X (6  V~=  P*SSTk 
c 


100  IF  {NCHOSE  < I ) . EQ. 0 ) GO  TO  200 


c — : 

C **  COMPUTATIONS  FDR  CATALOG  ITEMS 
C 


00002130 
00002140 
00002150 
00002160 
00002170 
00002180 
' 0000 2 i 90 
00002200 
000022  H) 
00002220 
0&002230 
00002240 
' 00002250 
00002260 
00002270 
" 00002280 
00002290 
00002300 
" 00002310 
00002320 
00002330 


C ** 


**. 


. Cl-  COST (1,1  ) 

0 =NQV  +NFV 

QP-*  Q * nchoseTT)  ■ - 

• Q5=5.*NCHUSE ( I ) 

P5  = COST  (3,1) 

ORFF'  ='C0ST(4;i) " - - - • 

FQ  --  NCHOSEID/GREF 
IF  TFQ.LT.l.)  FO  = 1. 

FRC  = 0.8875  + 0.1125*F0  

FRT  = 0.3  + 0.7*FQ 

INL CRING  CU_ST,  (Dc  OR  COMPE) 

COST(  1,1 )=CDST  (1,1  )*PI*FRE*100~0. ~ -■  — 

EVALUATION  COST,  ( Tfc  OR  COMPT) 

COST (2,1 ) -LOST ( 2 , 1 ) *P I*FRT  000 . 

SUB— TOTAL  ENGINEERING  COSTS  •-  - - 

GOMPR(I)=  COSTCI,I)  * C0ST(2,U 

COMPUTfc^  COMPONENT  AVLRaGF  UNIT  PRODUCTION  COST, (PU  OR  COMPUF 


00002340 

00002350 

00002360 

00002370 

00062380 

00002390 

00002400 

00002410 

00002420 

00002430 

00002440 

00002450 

00002460 

00002470 

00002480 

00002490 

00002500 

00002510 


ISN  0078 

ISN  0079 

ISKl  0080 
ISN  0081 
ISN  0082 
ISN  0083 


ISN  0084 
ISN  0085 
I STS'  0086 
ISN  0087 
ISN  0088 

T " 
kO 

i,  ISN  0089 
ISN  0090 
ISN  0091 

ISN  0092 
ISN  0093' 


C ** 


C ** 


C ** 


C 

C_ 

c 

c 

c **_ 
c”  ** 
200 


9993 

C 


COST  ( 3 » I > = I „?77*P5*GP**  . 848*1*1*1000  ./Q 
COMPUTE  COMPONENT  CUM  AV6  5 UNIT  PROD.  COST 

C0MP5PU)  - 200.*  P5  * 05**0.848  _*  PI  * 1.277  __ 

COMPUTE  CQMPuMENT  AVERAGE  PRODUCTION  ENGINEERING  (PE.QR  COMPUti 
COST (4»I ) = 1. 1*(  OP**. 485-1  . )*PI*FRE*JtOOO./Q 
COMPUTE  COMPONENT  CUM  AVG  6 PROD.  ENG.  COST 
COMPSfcC 1 ) « 200.  * Cl  *lQ3**0~.6ti5  - 1.0)  * ERF  * Pi 
COMPU(I)  * LOST ( 3»  I ) ♦ COST  1 4» 1 1 
1=1  + 1 
GO  TO  ioo 


COMPUTATIONS  FOR  SUBSYSTEM  COSTS  BASED  ON  COST  ESTIMATING 
RELATIONSHIPS  (C.E.R.-rS) 

M = 0 
J ~ I + 5 

ISAVF  = T " 

PPI9T  9993 

FORMAT  (//)  _ . _ 

DO  SCO  K =■  l,J 
M = M ♦ 1 

GO  TO  < 210*l60»220*260,240  »250) »M 

SET  SOLAR  ARRAY  FACTORS  (FOR  ALL  EXCEPT  DUAL  SPIN) 

I CONE  = NCONFfl) _ 

GO  TO  (260,2l5r215»215,'2i5)tlCDNF 


ISN  0094 
1510)095 
ISN  0096 
ISN  0097 
ISN  0098 


FR(M>  = 3. 
FT(Mr=  3. 
FP(M)  = 4.67 
FE(M)  =4.67 
GO  TO  270 


ISN  0099 
ISN  0100 


SET  THERMAL  FACTORS  (FOR  ALL  EXCEPt DUAL  SPIN) 
ICONF  = NCOfiF  ( 1 ) 

GO  TO  ( 260*225  » 225 » 225*225 ) * ICONF 


00002520 
00002530 
00002540 
00002550 
00002560 
00002570 
00002580 
00002590 
0000260Q 
00002610 
00002620 
00002630 
00002640 
00002650 
00002660 
00002670 
00002680 
00002690 
00002700 
00002701 
£000 2702 
00002710 
00002720 
00002730 
00002740 “ 
00002750 
00002760 
1)0002770 
00002780 
00002790 
00002800 
00002810 
00002820 
00002830 
0000^840 
00002830 
00002860 
00002870 
00002880 


ISN 

0101 

225 

FR(K)  = 3. 

ISN 

0102 

FT(M)  = 3. 

1ST) 

0103 

FP(M)  = 4.67 

ISN 

01Q4 

FE(M)  » 4.67 

ISN 

0105 

GO  TO  270 

C " ‘ ' 

C 

c 

SET  PROPELLANT 

ISN 

0106 

240 

"ICONF  ="nconm 

ISN 

0107 

GO  TO  (260,241 

C 

ISN 

0108 

241 

FR  ( mT~  = 2.3?' 

ISN 

0109 

FT ( M ) = 1. 

ISN 

0110 

FP(M)  = 1. 

ISN 

6111 

FE  ( M ) = 2.37  " 

ISN 

0112 

GO  TU  270 

C 

ISN 

0113 

246 

TR  (Ml "S'  .9T54- 

. ISN 

Oil* 

FT(M)  = 1.0 

ISN 

0113 

FP(M)  = 1.0 

ISN 

(3116 

FE (M ) = .9954 

ISN 

0117 

GO  TU  270 

C 

c - 

FF*D  SYSTEMS  FACTORS 

: I “ ' 

t24i),ICaw,F 


jtSN  0118 
ISN  0119' 
ISN  0120 
ISN  0121 
ISN  0122 
ISN  0123 
ISN  0124 


ISN  (.125 
TTN  6126- 
ISN  0X27 
ISN  0126 


2 50 
255 


SET  STRUCTURES  FACTORS 
1C ONE  = NCUNE ( k 1 
GO'  TO  <260,265,?j-»235,237) , ICOHF 
FR(M)  = 3. 

FT (M)  = 3. 

FP(Ml7^.67  " ■ — 

Ft  (M)  - 4.67 
GO  TO  ^70 


(ALL  tXCEPT  DUAL  SPIN) 


C 

C- 


260 


FR(M) 

FPCMl 

FT(M) 

FE{M) 


1. 

JL. 

1. 

1 • 


00002890 
000029.00 
00002910 
00002920 
00002930 
00002940 
00002950 
00002960 
00002970 
00002980 
00002^90 
00003000 
00003010 
00003020 
00003030 
00003040 
00003050 
00003060 
~ 00 00 3070 
00003080 
00003090 
00003100 
00003110 
00003120 
00003130' 
00003140 
00)003150 
00003160" 
00003170 
00003180 
00003190' 
0000320U 
00003210 
00003220 
00003230 
. 00003240 
00003250 
00003260 
00003270 


ISN  0129 
ISN  0130 
ISN  0131 
ISN  013c 
ISN  0133 
ISN  0134 
ISN  0135 
ISN  0136 


ISN  0137 
ISN  013  8_ 

vO 

^ ISN  0139 

^ ISN  0140 
ISN  0141 
ISN  0142 
_ LSW  0143 
ISN  0144  ' 
ISN  0145 
ISN  0146 
ISN  0147 

ISN  0140 
'ISN  0149 
ISN  0150 
ISN  0161 
ISN  0152“ 
ISN  0153 
ISN  0154 


270  COMPEL  = RE (M i*  X(M)**bE(M) 

C DESIGN  ENGINEERING  COSTS  (CDMPE  OR  DfcJ 

COST  ( 1 »K  ) a COMPlR  * SF  * PI  # FR(M) 

C TEST  + t VALUATION  COSTS  (UiMPT  OR  Tt ) 

COST ( 2 » K J = RT { M ) *X (M) **BT ( M |*SP*PI*FT( M t 
C SUBTOTAL 

COMPR(K)  = CuSTl 1»K)  * C0ST{2»K> 

C UNIT  PRODUCTION  COST 

CUST13.K)  a ftP(M)*X<M)**6P(M|*SF*PI*(i*#  ( -. 152 I *FP < M) *1.2 77 
C UN  1 1 f NGlNt  fRING  COSTS 

COSTUtK  J =CnMPER*(i>**.4b5-l.)*SF*PI*FE{M)/ii 
C **  COMPUTE  COMPONENTCUM  AVG  5 (JUT  PROD.  COST 
C0MP5P <(C  } = G.7E3  * COST f 3»  K ) * G**0.152 
C **  COMPUTE  COMPONENT  CUM  AVG  5 PROD.  ENG  COST 

CUMP5E ( K l = 0.2363  * C6$T(4«K)  * G/(U**0.485~  - 1.0) 

C 

C_  SUBTOTAL  PRODUCTION 

~ COMPU«K)  = COST (3,K)  +C0ST(4,K) 

C 

GO  TC  {2b0f260t2bl»2bC»<.62  t283)  »M 

C ----- *V'tp  CER  SUB-TOTALING 

280  SUBfc<5i  = SUM  (5)  + COST(li,Kl 
SUBTI5)  = SU6T(_5 ) + C0ST<2VK) 

SUBR(5)  = SUBRC5)  + COMPR(K) 

SUbllE  1 5)  = SUBUef9)+  C0STI3?K) 

SUbJJP(5)=  SUBUP(5jl+  COST  1 4 »K J 

SUBU( 5)  = SUfcU  (5)+  COMPU(K)  

SUB5E(5)  - SUE  5E  ( 51  + C0MP5UK  ) 

SUB5P(5)  = SUB5P < 5 ) -»C0MP5P(K) 

GO  TO"  300'  - 

C **  THERMAL  CER  SUB-TOTAL 

281  SUbE  ( 7 ) = SUBE(7 ) + C0STU,_KJL_ 

SUBT  ( 7 ► = "SUb  T ( 7 ) ♦ C0St(2,M  

SUBR { 7 ) = SUBP (71  * COMPR(K) 

SUBUL ( 71  - SUbUEE  7_)+  COSH 3, K I 

SUBUP(7T=  SUBUPt  7) + COSt|4tK) 

SUbUC 7 ) = SUBUI7)  + COMPUtKi 
SUB5F  { 7 ) =•  SUB3EC7)  ■#  C0MP5ECK) 


00003280 

00003290 

00003300 

00003310 

00003320 

00003330 

00003340 

00003350 

00003360 

00003370 

00003380 

00003390 

00003400 

00003410 

00003420 _ 

66003430 

00003440 

00003450 

00003460 

00003470 

00003480 

66003490 

00003500 

01003510 

06063520 

00003530 

00003540 

"66063556 

00003560 
00003570 
00003586 ' 
00003590 
0000360% 

6060  36 10  " 

00003620 

00003630 

00003640 

00003650 

00003660 


9-62 


ISN  0155'  SUB5P (7)  ='  SUBSP'm “♦  COMPSPIkT  " 

TSN  0156  GO  TO  300 

_ ' _C 

iSFj  0157  ' ‘ 282  SUBE(2  ) = SUBtT2j‘+  COSfTi  ,Kj”  ' 

ISN  0158  $U8T<2»  = SUBT  ( 2 ) ♦ UJST(2,K> 

^i59  . SUBR(2 } = SUBR12)  + CGMPK(K) 

ISN  0160  SlfBUE  ( ii~  SUf  U8 <<(.*♦  COST  (3 f~K}"  ‘ 

ISN  0161  SUBUP  ( 2 ) = SUE  UP  (2)4  CUSK4,K) 

?.?Ji  PI6?  SUBU(2)  ‘ SULU  <?)  + COMPUUI 

ISN  0163  SliB5F  (2 ) - SUB5E  C 2 )'  4 CUMP3E  <K) 

ISN  0164  SUB5P(2)  = $Ub3pt2)  + COMPSPIK) 

ISN  PI69 GO  10  300. 

ISN  0166  283  $U6£le)  = SURU6)  + COST  <1,10 

0167 SUB  I (6  ) - SUBT  ( 6 ) + COST  (2, K) 

ISN  0168  SUBRT6)  ='  SUBR(6j  + ’CCMPR'(KI 

TSn  0169  SUBUE (6)—  SUBUE 16 )+  LUST (3 ,K ) 

ISN  0170 SUbUP(fe)-  SUBUP  (6)  + COST (4, K) 

ISN  0171  SUBU (6|  = SUBU(o)  + C0HPUfiO~ 

ISN  0172  SUB5E  (6)  = StJfc5fc(6)  + COMPbF(K) 

LSH  0173 . SUB^P(6)  = SUP5 P( <3 ) 4 ujMPiP(K) 

C 

ISN  0174 300  CONTINUE 

C SUM  SUb-TOTALS  fc.Y  SUbSYSTcMli  OF  C 

ISN  0175  : 1 J =~1 - — • - 

ISN  0176  IK  = 0 

ISN  0177  DO  320  J=l,5 

ISN  0178  • ' Ir  ( J.NE.I ) Tj  =“lK”T T " ' ' 

ISN  OlyO  IK  s IK  NfcOUIP(J) 

C 

ISN  0181  ‘-"'DO  310  T=  IJ,Tk 

ISN  0182  SUBF  (J)  = SUBE  <J)  + Cl!ST(l,I) 

P~l? SUBT  (J)  = SUBT  (J)  4 OUST  ( 2»  I ) 

ISN  0184  SUBR  (J)'“=  SUPRfj)  4 COMPK(I) 

ISN  0185  SUBUHJ)  = SUBUE! J)  + COSTCO, I) 

*.£N  _ SUBUP(J)  = SUBUP  (J)  4 COST  (4,1) 


‘ 00003670" 
00003680 

**_ AUX  PROP  CER  SUB-TOTAL  00003650 

00003700 

00003710 

00003720 

0000373G 

00003740 

00003750 

00003/60 

00003770 

. _ 00003780 

**  STRUCTURE  CER  SU6-TdTAL0CG03790 

00003800 

_ _ 00003810 

00003820" 

000G3830 

JD0003840 

00003850' 

00003860 

. 0u003870 

00003880 

00003890 

_ _ 00OC39O0^ 

00003910 

TALOG  ITEMS  00003920 

_ '00003930 

00003940 
' 00003950 

_ 00003960 

'00003970' 

00003980 

00003990 

00004000 

00004010 

00004020 

00004030 

00004040 

00004050 


ISN 

0187 

SUBU  (J)  = SU8U  (Jl  '+  COMPUClT 

— 

00004060 

ISN 

0188 

SUE5UJI  - SUBiEtJ)  + C0MP5E ( 1 ) 

000G4O70 

ISN 

0184 

SUB5P { J ) = SUB5PCJ)  + C0HP5PII) 

00004060 

ISN 

0190 

'310 

CONI INUE 

0000*r090 

* 

C 

00004100 

isn 

0191 

320 

CONTINUE 

00004110 

c 

00004120 

L 

4* 

TOTAL  COSTS  FUR  BASIC  SPACECRAFT 

00004130 

C 

0000*140 

ISN 

0192 

DP  400  i s 1 i ( 

00004150 

ISN 

0193 

D€  = 0?  ♦ SU0HJ) 

00004160 

ISN 

0194 

TP  = Tt  ■*  SUtiT  < 1 » 

G0004170 

ISN 

0195 

SYSR  = SYSR  + SUBftCIl 

00004160 

ISN 

0196 

PE  = PE  + SUBUfcCl ) 

00004190 

ISN 

0197 

PU  = PU  + SUBUPUI 

00004200 

ISN 

0198 

SYSU  = SYSU  + SUBU’f  1 J 

00004210 

ISN 

0199 

P5E  = P5E  ♦ SUB5c(I) 

00004220 

ISN 

0200 

P5P  = P5P  + SUB5p(II 

00004230 

ISN  0201 

+■ 

C 

o 

CONTINUE 

00004240 

c 

00004250 

c 

_COMPUTt  TOO  LI  hi  6 ANP  TESI 

EQUIPMENT 

00004260 

vO 

c 

00004270 

^ ISN 

0202 

TOOLP  - 0. 

- 

00004260 

w ISN 

0203 

TOOLU  = 0. 

00004290 

" isfi 

0204 

T00L5  = 0. 

000 04300 

c 

00004310 

c 

COMPUTE  QUALITY  CUNTRCJL 

00004320 

' c 

00004330 

ISN 

0205 

OCR  = .015*DE  ♦ , 14* 1 E 

oG00<*340 

ISN 

0206 

QCU  = .015*Pt  ♦ -14*PU 

00004330 

ISN 

0207 

0C5  = 0.015*P5E  + G.14*P5P 

■ 

000043  60 

c 

00004370 

c 

COMPUTE  SYSTEMS  t.NGlNELRlNG  AND  INTEGRATION 

00004380 

c’ 

00004390' 

ISN 

0206 

StlR  - .32*Df  ♦ .<l?*TE 

UG004400 

ISN 

0209 

StlP  = .32=*P«  ♦ ,c2*PU 

00004410 

isn 

0210 

SE15  = 0.32*PSE  + 0.22*P5P 

00004420 

c 

00004430 

- 



L 

COMPUTE  PROGRAM  MANAGEMENT 

00004440 

ISN  0211 
ISN  0212 
IS^  0213 


ISN  021 A 
ISN  0215 


PMR.  - 0.19*DF  + 0.02*TE 

' PMP  = O.I9*Pt  + 0.02*PU  , 

PMS  0.19*P5['  "+  ~ p.02*P5p 

.*^*.TEXA!-  SPACE  CRAFT  COSTS 

SATR  = SYSR  + TDULR  ••  OCR  +, -SEIR  + PHR 
....  _$A™  SYSU  + TOOLU  + QCU  + SFIP  + PHP 


nO 

r 

O' 


C ***  .TOTAL- PAYLOAD  COSTS 


ISN 

0216 ' 

ISN 

0217 

ISN 

0218 

ISN  0219 

ISN 

022,0 

ISN 

0221 

C 

c 

c 

ISN' 

"0221 

- 

ISN 

0223 

c 

,, 

c 

*** 

c 

ISN 

0224 

c 

ISN 

0226 

410 

ISN. 

0227 

c 

ISN 

0228 

420 

] 

ISN 

0230 

. c 

ISN 

0231 

y 

c 

ISN 

0232 

430 

c_ 

"satinT  =NFV  * "SAfCr 
XME1NV  =NFV  * XMHJ. 

PAYR  = “SATR  X MER 

" YMEP  = XHFR  “ 

PAYQUL  =NQV  # SATU 
. PAY1NV  - SATINV  ♦ XMEINV 


CUMULATIVE  AVERAGE  COST  FOR  FIVE (5)  SPACECRAFT 

SAf5~=~P5E  + P5P  + TOOL 3 + 0C5  + SE15  ■T'pmS  ‘‘ 
SAT5  = 0.783*SATU*  (0)^0.152 


***  COMPUTE  - GROUND  SUPPORT' t 


OUfpMCNT  COST  ( DEVEL.  AND  PROD. 1 


IF  (iMETYP.NE.lji  GQ  TO  420 

FGSfc  = 0 .380 
GO  TO  440 

IF  JNCONF  { i ) .CL .2 • AND.  (tNCOE 
IE0.5  ) ) GO  TO  A 30  .■ 

FCSF  — 1.0 
GO  TO  440 


**  SET  FACTOR  FUR  COMSAT' 


00004450 

• 00004460 
00004470 
00004480 
00004490 
00004500 

” 00004510 
000045-20 

• 00004530 
00004540 
00004550 
00004560 
00004570 
00004580 
00004590 

v 00004595 
00004600 
00004610 
00004620 
00004630 
00004640 
00004650 
• 00004660 
000046.70 
00004680 
-00004690 
^,,00004700 
,00004710 
: 00004720 
.00004730 
00004.740 


**  SET  FACTOR  FOR  GENERAL 


' 00004760 
00004770' 
00004780 

_ _ .00004790 

**  SET  FACTOR  FOR  GtNhRAL' PADDLE00004800 

00004810 

_ _ 00004820 


ISN  0233  “ 440  GSE  = 25n3»SATR**/738*FGS't  ' . ' * 

C 

C ***_C0MPUTE  LAUNCH  COSTS 
C 

ISN  0234  FL  = 1.0 

C 

ISN  0235  IF  (NCOWHi  ) .GE  .2.  AND.  <NCGN!P<  5 ) .Etu  i.UR.NCGNF  < i I .EG.3 

I .DR.NC0NF(3).EQ.5)  > FL  = 2.411 

C 

C COMPUTE  UNIT  LAUNCH  COST 

C 

ISN  023?  XLN  = 1710.*SAT5**0.3*.I  * FL 

’ C ***  COMPUTE  TOTAL  LAUNCH  COSTS 

C 

ISN  0238  XL  TOT  = NFV  * XLN 

C 

c 

■ C ' 

C COMPUTF  OPERATIONS  LOST 

C 

•f  ISN  0234  "FF6~=  1. 

0s  C 

T ISN  0240  IF  (NCQKP<  U .CL. 2.  AND.  (NCONF(S)  .EQ. t .OR . NCQNF ( 5 ) .EU . 3 

1 .OR.NCQNF ( 5 ). EQ . 5 ))  FFO  = 4.6 

C 

C _ COMPUTt  UNIT  FLIGHT  OPERATIONS  COST 
C ~ ' 

ISN  0242  CFO  = 0.6937*  < SA 1 R+SAT3 ) **0.716  * FFO 

- COMPUTE  TOTAL  FLIGHT  OPERA T IONS  COST' 

C 

ISN  0243  CTOT  = NFV  * CFO 

C ’ ... 

C 

C COMPUTt  TOTALS  ' 

C 

c **TOTAL  OD T+E.  COST 

ISN  1*244  FfcfcR  = FttiPCT  * ( SATR  ♦ PAYUUL  + GS1 1 


00004830 
00004840 
00004850 
00004860 
00004870 
00004880 
00004890 
00004900 
00004910 
00004920 
00004930 
00004940 
00004950 
00004960 
00004970 
00004980 
00004990 
00005000 
00005016 
00005020 
00 GO 3030 
00003040 
00003030 
OOOOSOjSO 

66065676 

00005080 

00005090 

b6005l6o 

00003110 

00005120 

08003130 

00005140 

00005150 

00005160 

00005170 

00005180 

00005190 

00005200 

00005210 


ISN  0245 

C 

ISN  0246 
ISM  024? 


ISN  0248 
JSN  0249 
ISN  0250” 


C 

c 

c 


DDTF  ='  PAYR  + PAYQUL”  + GSF'+TFEER  ' “ 

**TCTAL  INVEST MENT  COST 

FbfcINV  -_PCEPCT  * SATINV  ‘ 

XVFST  =' “PAYiuV‘+  FEEINV  ' * • • 

, . ■ , **TOTAL  OPERATIONS  COST 

OPS  = (XLTOT  + CTCT)  * Jl.0  .♦  PEgPCT)  • • 

■ RETURN  . ■ ’ . , ' , 

END  ~ ‘ •'  , 


£f-FPCT*’  • NAME- MAIN ,0  PT  =01,L  lNr.CNtT=4l , STZE^OOOK, 

♦OPTIONS  in  EFFECT*  SOURCE, FtiCPIttNOLlST, NOO£Ca*LOAP,NGMAP,NQEDTT, ID»NOXKEF 

♦STATISTICS*  ' " SOURCE” ’STATEMENTS  k * 249  ,’pRUGRAM  SI2E  ' = < ~ 7080. 

r 

♦STATISTICS*  NO  DIAGNOSTICS  GENERATED 
******  END  OF  COMPILATION  ****** 


00005220 

C0003230 

00005240 

00003250 

00003260 

00005270 

00005260 

00005290 

■'00005300 

00005316 


77K  BYTES  OF  CORE  MOT  USirD 


LEVEL  21,7  < JAW  73  ) 


as/360  FORTRAN  h 


ISN 

0002 

C 

• 

c ** 

C ** 

C ** 

ISn 

0003 

ISN 

0004 

ISN 

0005 

ISN 

0006 

ISN 

0007 

ISN 

0008 

isn 

0009 

NO 

ISN 

0010 

t 

ISN 

0011 

-v] 

ISN 

0013 

ISN 

0014" 

9000 

ISN 

0015 

9001 

ISN 

001# 

ISN 

0017 

9002 

ISN 

0018 

/ 

ISN 

0019 

ISN 

0020 

9010 

COMPILER  OPTIONS  - NAME=  MAIN,0PT=01 ,L1MECNT=41 , SIZE=OOOOK,  " 

SOURCE  t EBCDIC  f NOLI  ST »NODtCK» LOAD, NOMAP ,NOEDIT , ID, NOXREF 
SUBROUTJNF  PW(T  < ItRR  ,NEQUIP,NACC£P»NCONF) 

THIS  IS  THt  OUTPUT  iUBROUINt  WHICh  CONTROLS  THE  PRINTED 
OUTPUT  OF  ANT  ACCEPTABLE  DESIGN 


00005320 
00005330 
**00005360 
**00u0535£ 
00005360 
00005370 


COMMON  /dTWN/WT,VOL,DT,U,DX,DYt£>Z,XJ,YJ,ZJ»RJ,FF,TI,PL,PLMIN, 

1 LMBOD, AREA, SATLG, MATE ,NC  , AC  SWP  ,HARNWT  * THCMHT , C 0MVW1 , TNKWT , P A SS  TR  » 0000538 O 

2 SA1THJ ,TPK1M,1B1 LOC , R ADA , RADAfc ,RAT ,HTRPWR,HTRPRB ,HP T,HT P I PL , VCHP , OOOOB^VO 

UJ  VO  T L/  WilYrnf*  ..  r n . _ ^ 


3 HTPT,FC  ,XNZE  RO, CUMRT  , ACSSN  , BURaT  (2)  ,EQBLG, SAEOLG,  SATWT 
CQMMUN  /PRTCLM/ACCRCy,CISTAR, IREL,MMDOLp , TRUNC , iTRUNC,  DC , TE , 

1 TOOLR*QCR,SEIRtPMR,PE,PU»TOOLU,OCP,SEIP>PMP,SATRi"SATINV,MER, 

2 MEINV,PAYR,PAYlNV*PAYQUL,GSE,XLTOT,CTOT,FEER,FtEINV,ODTE,XVEST, 

3_P±S»__ SKT  AIM  6J,RGLD<60.),  T,  AN,  TS,BS»  AM,  TF.BF.TC.TA.TB.TOTOPS 

COMMON  /ChCSE /ICHOSE  ( 601  ,NCHUSe'(66')  , CUST(  5,60)  iREL  (6t60)  •' — “ ' 
1 7HM(4»oO) »DP1A( lI,oOJ 
COMMON  /D8CUM/IUB( 30) , DATA 8 <55,60) 

DIMENSION  I ERR  17) *NEQUIP(5 ) »NCGNF( 6)  ' ~ 

REAL  MMDOLD 
MM DnLn=MMD0LD/7?£. 

T RUNG  =TP  UNC  / 76  0 • \ ' - - — 

IF  (NACCEP.G . .1)  bO  TO  IOC 
PRINT  9000  1 


00005400 
00005410 
00 005420 
00005430 
00005440 


00005450 
00005460 
00005470^ 
00005480 
00005450 

. . 00005493 

00005494 
0000550b 

— - . 00005510 

00005520 
00005530 

_ 00005540 

’tRFORMANCE  STUDY  **)  00005550 

00005560 

___  _ __  00005570 

FORMAT  (loH  DEFINITIONS */*25h  CQNFIGURA t20NS“TNCQNF ) ,/ ,5X , ""66005580‘ 

I36HSTABI LIZAT ION  AND  CONTROL  ( NCONFI i) ) , I5X,31HAUXILIARY  PRQPULSI000005590 
2N  JNCONF ( 2 )J , /, 7X, 23HNC0NF (1 )=1  IS  DUAL  SPIN,28X,22HNCONF<2) =1  IS  00005600 
3C0LD  GAS ,/,7X,22HNC0NFIl)=2  IS  YAW  SPIW,29X*2bHMC0NF(2 )=2  IS  MONDP000056io” 
4R0PELLAN1 ,/,7X,2bHNC0NFCl)=3  IS  MASS  t XPULSION *1 3X ,26HNC0NF f 2 ) =3  10000^620 

yjX^HNCONFX),  K=4  1£  J«ASS  _EXPULSION  W/  CMG-S  , I2X, 200005630 
65HC0MMUNICATI0NS  (NCONFI 4) ) , /,7X,38HKC0NF( 1)=5  IS  MASS  EXPULSION  W00005646 

IS  SfcpA^ATE  UPLINK  AM)  DOWNLINK ,/,5X, 4600005650 
8H0ATA.  PROCESSING  AND  INSTRUMENTATION  ( NCONF  { [3  ) 7X,4IHNC0NF(  4 ) -2  1000b566U 


PR INT  9002 
‘FORMAT*  SOXi 
PRINI  9001 
PRINT  9010 


Original  PAGE  js 
Bp  POOR  QUALITY 


ISN  0021 
ISN  0022 


' ISN  0023 

ISN  0024 
' ISN.  002i> 


ISN  0026 


If  WMA  » 7, 7X  , 39HNC0NF I 3 ) =1  IS~GEN£RAL  PURP0S00005670 

BX  39HNC0r!pfll  f ,=3  lS  UfiI^1^0  LINK-SEPARATE.  ANTENNA  ,/,  700005680 

->-«-£fd-S  --^--A-L  P URP  U S E_  P R OCfc  SSOR,  1ZX  ,4fcH?<CQNF  ( 4)  =4  IS  00005690 

D ( 5 n 26X  ^ OH^nX^ » , t UNLINK 5X  f 27HELECTR ICaL  POWER  TmCONFO 0005700 

ex  {Ihn izLlS.mifltD  ‘-^k-separate  ant  «-  downlink,/, 700005710 

fS p r/3  \ iS V T’  — ^%yLAT10N_  saddle  MTD,  ,5X,  25HVEHICI  g SI00005720 
G 9^  ‘hnoX*  *'»^»^HNLONF(5)=2  IS  SHUNT  REGULATION  - BODY"  MTD". 00005730 
MFfKI'pAnn  ? lx,  CYLINr>tRf/,7X,44HNC0NF(5)=3  IS  SHNT  + OISCH. R00005740 

"IT  + mt h Re * S nC°d*  l-i=2  1 -S~  ■ §° H_NC ON F (5) =4  IS  SHN00005750 
rp^TI901IRE  ~ °DY  MTD * * * ZOHNCONF  < 6 ) =3  IS  SPHERE)  " 00005760 

90U_E0RMA1_  J.^i4^HNC0f|F(M=5  I S SERIES . LOAD_R£C. ..PADDLE  MTD.  ,5X,  IIHRO.0005^80 

25HR?ntmJNr^*ru^Y^ 1S  SfcR1ES  LOAD  *FG-  ~ body  ”mTdT79X, 400005 7"9T 
I?-  1tU?5TiS?.  “ STRING,/,5aX,43HREOUNDANC00.005800 


3 Y_L I&UKATiriN  = 11S  DUAL  STRING) 
PR INT  9001 


00005810 

700005820 

00005830 

00005840 


PRINT  901?  ""  

90l:ix°20HAliIi?^;iVMpSnJGfc6<ltRR>,/’3X,25HSTABI,-iZA7I0N  mD  LONTRDL,2600005860 
'iJflSSISff“  i ^ _.i)_HEANS  NO  ME S SAGES, 22 000058 70 

twill  I .I"  - Dn!  MESSA^LS,/,7X,A9H1ERR  = I MEANS  MAX~ALL06005880 

4UDE  AND  LONTRm  5 ^ HURR  * 1 MtANS  CYCLE  UFE  0F  ATTIT00005890 

4 ??V J!EANS_MAX  rate.  ERROR  TOO  SMALL00005900 
J|mS Jlcfma!?* v I , SHORT,/, ,X,42HI£RR  - 1XX  MEANS  3 -AXIS  WHM0059To" 
7ThR?K1ERFITi5  ’uff^HItkR  = iU  MEANS  CYCLf  L1FE  0F  TRANSLATIONAL  000059.20 
111*411  iX**-*L*!*!i  DBL  GIMB.CMGS  ACC EPTAbLE, 25X,  1200005930 

tela  T°0  SHORT  ,/,5X,35HDATA  PROCESSING  AND  INSTRUMENTAT  ION,l^xT^'lO0Q05940~ 
I O fi°TH  THRUSTER S,  AR E ,/, TX , 30HI ER R I H 1 00005950 

'»  7)C-»  .i.  1 MEANS  M00005960 

C THAW  X,ZuIt!RMAE,/,iX,‘+lHItRR  “ 10  H0RD  LENGTH  GREAT ER00005970~ 

L / !x  * 1XXXXXXXXX  MEANiS  BATT  RAO  AREA.  IS  .SUPPLI E00005980 

llmelp*-4  T?t-In '?o-K,  1?2nKII  A---?S~T0°  JrARGi»35X18HJ_N.  RAD_AB,/,7X  ,300005990 
'cm-.-,  n7k  cnnu  SPEL*E0MD*SYNC*flg  Nt  0,15X,  5IHIERR  = XlXXXXXXXX  '00006000' 
rZ  AND  VAklAEL£  LUND  ,/,7X,36riIERR  = 10000  END  OF  DAT00006OI0 

fiKI£L‘rsfI?N,‘  ^#X,-ISrrSANCt  ~-AT-  P^E  LNPO  is  REQUIREDf/,5X,14HVE00006020 
HHICL.  olZINb,39X,<t.HILRR  = XX1XXXXXXX  MEANS  PHASE  CONTROL  MASS"  I SI  60~66"6030~ 

PRINT  9013  . 00006040 

00006050 


ISN  0027 


ISN  0028 
ISN  0029 
ISN  0030 
ISN  0031 
ISN  0032 

£ ISN  0033 

o ISN  0034 
ISN  0035' 
ISN  0036 
JCSN_  0037 
ISN  0036 
ISN  0039 
ISN  0040 
ISN  0041 
ISN  0042 
ISN  0043 

ISN  0044 
ISN  0045 
ISN  0046 
ISN  0047 
ISN  0048 


9013  FORMAT  <7X,26HIERR  = 0 MEANS  NO  MESSAGES »43X# 15HSUPPLI ED  IN  PCM »/» 00006060 
17X,96H1ERR  = I MEANS  BODY  MOUNTED  SOLAR  ARRAY  LENGTH * 5X»  50H1 ERR  = 00006070 
ZXXXyXXXXAX  MEANS  I SOThERMAL  J Z6R_  IS  KtQUJRED,  A,  I6X»28HLXCttDS  LQUI  P00006080 
jM'FNT  BAY  LENGTH,  14X,3lHl£RR  -'XXXX1XXXXX  MEANS  DIODE  HEAT  PIPE  IS  00006090 
*,PE0UIRED»/,76X»12H(2  RcOUIRE D|  ,/ ,58X, 5 1HIERR  = XXXXX  1XXXX  MEANS  C000006100 
5NV.  HtAl  PIP-  IS  R LuUi  R t.  0 ,/,38X,48HI t PR  = XXXXXXUXX  MEANS  OSR  RADOOOObHO 
6 1 A TOR  IS'  REQUIRED, /,58X,50HIf-RR  - XXXXXXX1XX  MEANS  CONV.  RADIATOR  00006120 
7IS  RLQUIRtD,/,6BX,46HIfcRR  - XXXXXXXX1X  MEANS  HEATER  POWER  IS  SUPPL00006130 
tilED, /, 76X,9HIN  HTRPWR,/,58X,49HlfcRR  = XXXXXXXXXl  MEANS  RADIATOR  AR0000614U 
9EA  IS  SUPPLltf D,/, /bA,7HlN  RADa)  ' 00006150 

C C0006160 

C »»■*■*»  ****^»  ♦♦»$»♦♦»♦♦*?<:**»*♦♦♦♦*»*♦****♦<?**♦»»*♦**»  »*:»?  »******#<t00006170 

C ' ~ ‘ ’66006180’ 

C BEGIN  PRINTING  OUTPUT  STARTING  WITH  SANDC  00006190 

C *5)=  ******************** ♦*#*#*4«*^*** ******  =£** » ***»  **00006200 
~C"  ’ ' ““  ’ ‘ 00006210 


100 


PRINT 

PRINT 


9000 

8000  fNAClEP 

(38H 


eOOO  FORMAT  OSH  SYSTEM  DESCRIPTION  DESIGN  NUMBER  ,I3> 

PRINT  8005,NCONF(l) 

8005_  FORMAT! 28H  STABILIZATION  AND  CONTROL,j^,5X^24HCONFI&URATION 

1IFIER,  6 X » 1 1 ) " ' " " 

IK  * NFGl'lP(l) 

PRINT  8010,  tlChOSEU)  ,1=1,  IKI 
'8010  ‘FORMAT  (30H  EQUIPMENT  CODE  IDENTIFIER, 15( 1X,I4)I 

PRINT  8015, (N CHOSE (1), 1=1, IK) 

80 15  FORMAT! 5X,20HEuUIPMENT  _QUANTITIES,5X,  15J_1X,I4) ) 

PRINT  6020»ACCRCY  ' 

8020  FORMAT ( 5X , 15HC ALCULATEO  ACCURACY, bX, fc 11 .4, 5H( DEG ) ) 

PRINT  8025 ,lFRR ( 1 ) 

8025  FORMAT  1 5X  i 4HI  f RR  ,2 IX  , 110  >'_ 

PRINT  8030,NC0NF|2) 


00006220 

00006230 

" 00006240 
00006250 
IDENT00006260 


0000o270 

00006280 

00006290 

00006300' 

00006310 

00006320 

00006330 

00006340 

00006350 


00006360 

00006370 


8030  FORMAT  (3X,20hAUX1L1ARY  PROPULSION, /,5X,24HC0NJ:I&URATI ON 

" xr~,  bx,iiy " ■ ~ 

1J  - IK  + 1 

1_K_-  IK  + NtQUlP  C 2 ) 

PRINT  eoio,!  Icrt6seui,l=rj, IK) 

PRINT  8015,(NCHUSEU),I=1J,1K) 

PRINT  8045, T1 


IDENT IFI E00006380 

00006390 

00006400 

00006410 

06t'Co420 

00006430 

00006440 


9-70 


ISN  0049 
ISN  0050 
ISM  0051 


ISN  0052 
ISN  0053 


rSN  0054 
ISN  0055 
ISN  0056 
~rSN~  0057 
ISN  0058 


ISN  0059 
ISN  0060 
ISN. 0061 


rSN  0062 
ISN  0063 


ISN  0064 
ISN  0065 
ISN  0066 
IS“fi  0067“ 
ISN- 0068 
ISN  0069 

ISN  0070 
ISN  0071 


ISN 

ISN 

1ST 

ISN 

ISN 

isJT 

ISN 

ISN 

ISN 

ISN 


0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 


S'S:S”roUt,'!X*E1I4'WfCRiET'( 00006450 

■ PR  1NT  8055, NC  ONF(j)  - 00006460 

^°^^ITI^AI0ENTlFItRy*6X^IlT^^*'I<1"  l^WuWfAn^^^ 


1TION  IDENTIFIER,  6XtIU 
IJ  = IK  + I 
~IK  ='  IK"+'“NH0UIP(3l  ' 

PRINT  80I0,(ICH0SEII »,I=IJtlK) 
•PR INT  _80I5,jNCH0SF(I)tl=Ij,iKl 


PRINT  806G,TLTC?PS" 

8°60  F0RMAn5X,25NC0MPUTER  OPERATIONS  RATE  , E11.4,5H(IPS) > 
«•  PUT  TfjTAL  STflRA££  Itv  ddtilit  < ^ 


n ’ r • inn  ^ RHic  ftrjLL«* 

PUT  TOTAL  STORAGE  CAPACITY  PRINT  oFRf  f 

PRINT  80 2 5“,TtRRT3) J-£-“ 

PRINT  80  70,NCCNF(4-I 


— * * 


00006490 
00006500 
~ Ou  006510* 
00006520 
00006630 
00006540“ 
00006550 
00006560 


00006570 

. — i - uviv|iI6ui«r|‘).| 

--ITT-— ^ ^X^^g^ffliC^W6,/.5«,26Hcm.F16URtT10«  IDEOT1HER,  6X, 1 00006^0 
IJ  =' IK  + 1 00006600 

IK  = IK  t NEQUIP(4)  00O066IO 

PRINT  8010,  (IcHUSE(1T7T=TjVIk1 00.006620 

• PRINT  80I5r(NCHOStU)f  I=IJflK) 

PRINT  80 75 iBITRAT ( X ) 

8075  Sf  80 Jo’SmS«lf1'|6  TOE^XT*Tr.4.6mKBPS if 


J°.^.  POA^IjjX^^I^ONEQ^MENl  DATA  RATE  ,EI1.4,6H(KBPS )> 


00006630 
00006640 
000066 50 
00.006660 
00006670 
00006680 
00006690“ 
00006700 


PRINT  8090,NCUNM5) 

6xouo0b7io 

IJ  = IK  + 1 00006720 

IK  = IK  -*•  N£qUIP(5)  00006730 

pr  in  r bo  i o t ( i chqseti  ) T i - arm — 00006740 

PRINT  8015, <NCHO$E(l),I=IJ,lK) 

PRINT  8100, PL  ' ■ ‘ • 

8100  PR  IN^  ~*WRAU'  Re”UUrR^ENT  ^MHIhATTsT) 

— ~ 7HC FT**2  )J 

8110  FQRHAT(5X,Lh«INIMUM  INSTALLED  faATTtRY  CAP.  ,tli.4, 8H  (AMP-HRI  ) 


"00006750 

00006760 

00006770 

00006780 

00006790 

00006800 

00006810“ 

00006820 

00006830 


vO 

I 

-J 


ISN 

0082 

ISN 

0083 

ISN 

0084 

ISN 

0085 

ISN 

0086 

ISN 

0087 

ISN 

0088 

ISN 

0089 

ISN 

0090 

ISN 

0091 

ISN 

0092 

ISN 

0093 

ISN 

0094 

ISN 

0093 

ISN 

0096 

ISN 

0097 

ISN 

0098 

ISN 

0099 

ISN 

0100 

ISN 

0101 

ISN* 

0102 

ISN 

0103 

ISN" 

0104 

ISN 

0105 

ISN 

0106 

' PRINT  8i20 

8120  FORMAT (3X» 15HTHERMAL  CONTROL! 

PRINT  8125»RADAjRADAB»RAT 
8125  FORMAT  (i>Xf  i3nRADlAfOR  ARF  ' “ 

10R  AKEA,8X,t 11.4,3X,7H(FT 
2Ell.*,,2Xf  IH(FT**2)  > 

PK  I NT  8130, HTkPWR,HTRPRb, HPT 
8130  FORMAT! 5X,12HHE  A TER  POWER , 10X ,F11 .4, 33H  I BTU/HR) 
1 PGWPR,9X,Eil.4,9H  ( BTU/HR  ) ,/,  5aX*  I8HT0TAL  HEATE 
f/Hft))  " " 


,RADAB»RA  T 

DlAfOR  ARFA,9X,tii.4f3X,3*lH(Ff*»2!  ' , 
xup  ii.4,3X,/H<FT**21,/,51X,I9HTUTAL  RADIAT 
2E11.**,£X,  IM(P7**2) ! 


00006840 
00006830 

_ 00006860 

**2)  , BATTERY*  RADIAT00006370 
RADIATOR  AREAflOX,  00006880. 

00006890 
00006900 

4,33H  I BTU/HRI  , BATTERY  HEATER00006910 
18HT0TAL  HEATER  POWER, 11X,E11. 4, 00006920  ’ 

00006930 


29H  (bTU/Hft)) 

PRINT  813i.,HTPIPt  ,VCHP,HTPT  ' 00006940 

!f5RMA  T 1 * ^HHJ-AT  PIPfc.  ,l3XtElla>(638H  (BTU/HR  ! » VARIABLE  CUNDUCTAN0OuO695O 

ICE  H.P.,4X,tll.4,9H  (BTU/HR  ) »/ »51x, i5HT0TAL  HEAT  PIPE, 14X, El 1. 47“  00006960 
29H  (BTU/HR!)  00006970 

PRINT  8025,1EPR(7) 
r ' ‘ 


PRINT  9000 

PRINT  8140, T 

'8140  F0RMAT<3Xf lOHSTRUCTURES,/ 
PR  INT  6l43,A*!,TS,BS 
8143  FORMAT  I 3X_»25HSTft  iNGfck 
j.,5X,r“U.4,SH  (IN)  ) 

PRINT  5150, AM, IF, BE 
> FORMAT!  5X,c3HI-RAMt  N’J 
l,5X,Ell.4,5H  (IN!) 

PRINT  8155, TC ,TU,T A 


» 5X » 15HSK IN  THICKNESS 
NO , THICKNESS ,HT 


,'Eil.4,4H(IN!) 
,6X,F4.0,2H,  ,tll.4,6H 


8130 


8170 


THICKNESS  » HT « 1 6Xy  F4>0  >ZHy  bH 

FOR  WAR  D tEU.4,1  ZH  (IN ) y CENTER 

i 

PRINT  8160, NCONF( 6 ) , SATWT , SAT LG,D,0 
) FORMAT (3X,14HVEH1LLE  SIZING,/ , SX , 64HC0NF 1GURAT 1UN  IDENTIFIER,  6X, 
II 1 , / , 3X , 14HLAUUCH  WEIGHT ,Ei  1.4,  6H(  LES  )",  , 14X.9HLENGTH  ,E  lT~.47  ~ 

26H(INI  , ,/,I2X,7HWI0TH  ,£11.4, 

35H|1«|  ,,15Xj9HHEIGHT  ,E11.4,j6H  (INJjr) 

»f 11 .4,l^n  (Lti-)N**2)  , ,6X,6HIYY 
,1:11.4, i.lh  (L6-IN**2|) 

PRINT  8l70*lRtL " 

FORMAT  ( 3X,7HS  AFt  TY  ,/»5X,25HREDO?*0ANCY 


w T I > Mf 

, ,,.-X,9HHEIl>HT 
PRINT  8i65,XJ,YJ,ZJ 
FOP  MAT (5  X , oHi XX 
1-IN**2I , ,6X,6H1 


DM  • Qini  a A 

-IN**2I, ,6X,6hlZZ 
PRINT  8025,7£RR<6> 
PRINT  8170, IRtL 

r.Oflii  1 T / 1 v -*%*  , <T-  A 


,EI1 .h,12H 


CONFIGURATION  ,12) 


00006960 
00006970 

00006980 

00006990’ 

00007000„ 

0000701 C£ 

00007020. 
00007030 
(IN), 00007040 
00007050 
00007060. 
( IN) ,o6oC7070 
~ 00607086 
00007090 
,00007100' 
00007110" 
00007120 
00007130 
‘ 00007140 
00007150 
00007160 
" 00007170 
(LB00007180 
00007190 
00007200 
00007210 
00007220 


ISN  0107" 

ISN  0108 

isb  oios 

ISN  011.0 

ISN  gin 
ISN  Oil* 

ISN  oil? 

ISN  0114 

ISn  oils 

ISN  0116 

TsN'oTif  — 

ISN  0118 

^"TSN  0119 
^ ISN  01*0 
ts> 

ISN  0121 

ISN  0122 

TSN  61 2 j 
ISN  012* 

ISN  0125  ~ 
ISN  0126 
ISN  0127 
ISN  0120 
ISN  0129 
ISN  0130 

ISN  0131 

ISN  0132 
ISN  0133 
ISN  0134 
ISN  0135 
•ISN  0136 


6i75 

8180 

818 

8190 

8195 

8200 


PRINf  8175  » MMD  0 LD  r RO  LO  t ITR  UNC ) , 7 R UNC  ” ' 

FORKAT(5Xf2lHHFAN  MISSION  OOKATTuN, til .4 , 5H ( MO ) T , llHRt LI Ab IL1T Yf 
LIABILITY  TRUNCATION,  TIME  , tll.4,4HIMU)  ) 

PRINT  8180  ' ~ " - 7 - - - -- 

l^I^^4^H0UNTS  4Rt  »U*«>.,.*.WOOT«..*OX. 

PRINT  83  t5  »Di  »pf.  - ... 

I leHnt  SlGN  £N0iNfcFRINb,i9X,PI3.1,5X,16HUNll  ENGINEERING , 

11 7Afrii*U 

PRINT  8190,lt ,PU  " ’ “ - ” 

i20x^i3?n19HTfcST  AND  £VALUATI0N»i8X»P13-l»5X»^HUNIT  production, 

PRINT  RlTiiilOLLR.TtiOLU  ~ - • 

lu“ES^]u’apm.“^%^n<!,T  f“U1('"'-«,lU,F13.1,«,26HTU0LlNl. 
PRINT  8266#QCR  ,QCP  “ ~ • 

1F13!*13  (7X,1&HQUALITY  C0NTKUL,ii2X,Fl3*1»5x»I&H0UAl-ITY  CONTROL »20X* 


00007230 
00007240 
000.07250 
00007260 
00007270 
00007280 
00007290' 
00007300 
00007310 
00007320 
00007330 
00007340 
00007350 
AN00007360 
00007370 
0000 736  6' 
00007390 
00007400 


b205 

8210 

8215 

8220 

U22T 

02  50 
ft?  35 
8240 
8245 


R1NO  AND  INTEGRATION, 2X,F13.1,5X, 
INI i ORATION, F 13 . 1 ) 


PRINT  02O5rSHR,stlP  r 
FORMA  T ( 7 X ,3vNS YS  ( i.MS  tNGIN 
135HSYbTL-MS  HvGlNFERlhu  AND 
PRINT  6ZlO,PMR,PMP  “ * 

1F17XAF« X’JaHPR0GRA^  MANAGfc  MINT* 19X»F13.1,5X, 1 bHPRUGRAM  MANAGE Mfc NTOOOO 7450 
' PR  IN?  “821  ’ “ - ~ ■■  ••  ..  — 9°i? 07460 

1 TfiHnppoA?i,r1^°5T  CATFb0RV*  12X,i:HnDl  +E  » 15X  * 10H1NVES  7 MF.NT  »10X»  V0CL 

ilUHUPcKAT luNS I 

PRINt  8 2 2 0 AT R "*S ATS 'nV  ' “ - — 

FORMATS* UOHsPACfcCRAFT,12X,FI2.0,8X,Pi2. 01 

— gK rNT  822 5* ME R *MEINV 

FORMAT  I 7X  t17HM1  SSI  Q&  E0UlPM±.NTV5X  *>1276, &X,F  12".0 )'  “ “ “ "" 

PR  INT  3230, PAIR  ,Pa  YINV 

FORMAT  (?X,i.3HT0TAL  PA Y LOAD  ,9X,Fl2 .0, 8X  » F U .0 1 
PRINT  6*35  *.P  A Y OU  L**~  ‘ ~ - • 

FORMAT (7X, 19«0UALIFICAT10N  IINJTS,3X,F12.0J 
PRINT  0240, GSt 

FORMAT  ( 7X  ,oHx>  » S . E.  ,I6X,F12 .0 ) ■ 

PRINT  0243,XL7UT  ■ 

FORMA T(7X,l6HLAUNLH  SUPPQR f ,48X,F12.0) 


0000*7410 

00007420 

00007430 

00007440 


00007480 
0000749_0_ 
00007500 
000075 IO 
00007520 


000075.30 

00007540 

00007550 

00007560 

00007570 

00007580 

"00007590 

000C7600 

00007610 


ISN  0137 
ISN  0X38 
ISN  0139 
ISN  0140 
ISN  0141 
ISN  0142 
ISN  0143 
ISN  014% 
ISN  0145 
ISN  6146' 

ISN  0147 


ISN  0148 
ISN  0149 
ISN  0150 


ISN  0151 
ISN  0152 
ISN  0153 


ISN  0154 

N ' 

- ISN  0155 
'so'  fsfi  0156 

I 

-vl 

OJ 


ISN  0157 


PRINT  8250, CTOT  " 1 

8250  F0RNAT(7X, 17HPLIGHT  OPERATIONS ,45X, F12.0) 

PRINT  8255,FFER»F£EINV 

8255  FORMAT  ( 7 X,l‘4HC0Nf  RAC  TOR  F EE  i8X  ,F  12.  0 , 8X^X1270)  " " 
PRINT  8260, DDT£,XV£ST, OPS 

FORMAT (7X,  liHPROGftAM  TOTAL, 9X, F12. 0, SX ,F12.0,8X»F12.0) 

PR IN 7 8270  ' ‘ “ 

8270  FORMAT  (3X,  8HSCHL0U.LE  I 
PRINT  8280,SKTAU(1) 


00007620 
00007630 
06007640 
0000  7650 
00007660 
00007670 


C 

C 


00007680 
00007690 

...  - . •.  _ — --..rj  ’."r. _ _ 00007700 

8260  FORMAT! 5X,.s7HDR SION  AND  COMPONENT  DEVELOPMENT  TIME, EX, F5 . IVs H < MONTOOOO 7710 

1HS * * 00007720 

PRINT  829 C, SKTAU( 3 ) 00007730 

8290  FORMAT ( 5 X,26HSUB SYSTEM  DEVELOPMENT'  TlME%19XrF5ri78H(7^firsn  00 00  7740 ? 

PRINT  8300, SKTAU( 2 ) 00007750 

830° .FORMAT (5X ,28HC0MP0NENT  QUALIFICATION  TIME , 17X » F5. 1»8H (MONTHS ) ) 00007760 

PRINT  83 10 , SK T AU( 4 ) 00007770 

8310  FORMAT ( 5X ,28H5UBSY STEM  QUALIFICATION  TIME , L7X ,F5. 1 , 8H < MONTHS ) ) 00007780 

PRINT  8320,SK1AU(5 ) - , 00007790 

00007800' 
00007810 
00007820 
00007830 
00007840 
00007850 


8320  FORMAT { 5X »45HSYSTEM  DEVELOPMENT  AND  FLIGHT  READINESS  TIME  ,F5.i, 
18 H( MONTHS)) 

PRINT  8330, SKTAU ( 6 ) 


8330  FORMATCSX.^VHSCHEOULE  DURATION  ( Tli  LAUNCH)  »16X,F5»1 , 8H1mONTHS  ) )' 


ISN  0158 

♦OPTIONS  IN  EFFECT* 


00007860 

00007870 

00007880 

OG007890 


MA1N,DPT=01 , LI  NECN  Tf_4 1 , S IZfc=OOOOK, 


♦OPTIONS  IN  EFFECT* 

♦sTatistTcs*  source  staTimXnts.  = ” 

♦STATISTICS*  NO  DIAGNOSTICS  GENERATED 


SOURCE, EBCDIC, NOLI ST, NODECK, LOAD, NOMAP, NOEDIT, ID, NOXREF 


157  , PROGRAM  SIZE  =' 


8970 


******  END  OF  COMPILATION  ****** 


89K  BYTES  OF  CORE  NOT  USED 


LEVEL  21.7 


ISN  0002 


ISN  0003 
ISN  boo4 
ISN  0005 


IS  (Si  ^)006_ 

VO 

i 

-J 

1 

ISN  0007 
ISn  OOOfa 
~ISR"  0009 
ISN  0010 
ISN  QOli 
ISN  0013  ' 
ISN  OOi*f 
ISN  0015 _ 
ISN  0016 
ISn  0017 
ISN  0016 
ISN  0019 
ISN  0020 
ISN  0021 
'ISN  0022 
ISN  0023 
ISN  002*t 


I JAN  73  ) 


OS/360  FORTRAN  H 


JMPILER  OPTIONS  - NAM£=  MAIN,0PT=01 ,LINECNT=41,SI2F^0000KV 

SUERmTTTN?U<^^r??L1^,l!<?L1ST,NCIbECK,L0A0,N0MAP,RtUtDrl*ID»N0XREF 
--  sy.?.pOUTINL  SANDC  (IPIC,  1ERR  ,1T£R  ^NCONF,  ICHOSL  ,NCHO SE ) 

IS  sfcLECTtD  EQUIP  AS  FOUR  DIGIT  EQUfp"  = 


C 

C 

e 

c 

c 

c 

c 

c 


*uvji\  uiuii  cwuir  ~ MANF  = ” 

KR?  IS  » Sl  i?«  IS  ’*UHEE,‘  0F  TH1S  ^ERATIOl. 

- ili-OF OTI&IctS "cSIIIr^-  5R?R  fLAG-'1?IC  *?  ™6.±*ST  __  . 

COMMON  LStP  LISTS  USER  INPUT  PARAMETERS 
-■S  ?UF|-£A>  9omMUN1CA TION_Bt tween  SUBROUTINES 

MaSIfr^Ltf ;FSISf  ESI  Se“CH  PIECE 

- r ‘ P,C  13  & s ^ *JiUf  LU.NCHOSM? 

COMMON  /USERl/DPHI »Ft ,TSMALLTXNUtPDOTO,TAUX»TAUY.TAUZ.T 

9.  ™oi 2 , **l  ^$£;™&iRV , 

» tP  * ^XNN,K,MANV,1PAYAH»EP1*AX»AYTA^ 

E A »EANT f ALPHA* TL» TA.CCEL » XNNNy THOLD» POOTAV* PDOTST  PHlPfiw  tciT 


ooooooic 

0000002C 

00000030 

00000040 

00000030 

00000060 

00000070 

00000080 

00000090 

>00000100 


t SaT^W^ ^ TPRI M^IB Tt!.OC  TR ADA *9^  tHARNWT, THCMtfT t £0/^VrfpTN^HT^T^^^R 

S A 1 1 WT  t TPRIM tlBTLOC »RADA T R ADAb.RA T, rtTRPWR .PTRPrB . 

- . .. 

COMMJfi  /DBCOM/IDL{30)tDATAB(55*90> 

. --£^M0 N_ /U SER 1 /tQMAWTtE0M2 WT , D I AM  A X , A L T 

ACSSN“2D,VM6,ZMD,DI,X”6i,V^°2,^MD2X^**0(i^~**03,^*°^ 

IF  (NCUNFtl)  .tL.  1)  GO  TO  10 

DT=D1/12.  ‘ — — ~ ~ - - _ 

0=0/12. 

DX -OX/12. 

DV-OY/12,  — — 

U2=0Z/1 2. 

Xj=XJ/4636.6 

YJ  =Yj/4636.8  ' ------- 

ZJ=ZJ/4636*8 
RJ=1. 

CONVWT=Q J ' . — 

10  Rj=Rj/4636-t 

WT=0. 


oooooiio 
00000120 
00 000130 
" 00  000140' 
00000150 
_ 0C00Q160 
Vooodoi7o 
00000180 
00000190 
00000200 
00000210 
00000220 
000(50230 
00000240 
00000250 
'00000260 
OOOOG270 
00000280 
00000290 
00000300 
00000310 
00000320 
00000330 
00000340^ 
00000350 
00000360 
00000370 


9-75 


"ISN“OOZ5 
ISN  0026 
ISN  0027 
ISN.  0028 
ISN  0030 
ISN  0032 
TSN~"0034 


ISN 

ISN 

ISN 

_ISN 

ISN 

ISN 

JSN 

ISN 

ISN 

ISN 

ISN' 

ISN 

ISN, 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 


ISN 

ISN 

ISN 

ISN' 

ISN 

ISN 


0036 

0037 

0038 

0039 

0041 

0042 

0043 


0044' 

0045 

0046' 

0048 

0050' 

0052 


0053 

0054 

0055 
0056“ 

0057 

0058 


100 


0059 

0060 
0062 
0064 
0066 
0068 


GO  TO  200 
GO  TO  300 
GO  TO  400 
'GO  TO  500 
SPIN 


V0L=0. 

PL=0. 

PLMIN50. 

IF  tWCONFfir  .fO.“  21" 

IF  (NC0NFC1)  .Fu.  3) 

IF  (NCONF ( 1 ) .Fu.  4) 

IF  (NCONF(i)  .FQ.  5) 

INITIALIZE  FOR  DUAL 
TFRR=0 

DO'iOO  I -'lT  7 
u=iDBm 

IF  ( Jt  TER «fc  U.  0)  NIHQS1  (1 1-1 

WT=WT+DATAB  (23,11  )*NCHGSE('l)' 

VO  L=VOL+ DATA  B ( 24 , 1 1 ) *NCHOS  £ C I ) 
PL=PL+PATAB(I 6tJI  ) CHOSE  ( I ) 
PLMtN=PLMIN+DA  Ta'bT  18, 1 1 j *NCHOSE<  I ) 
ICH0SE(1)=DATAB(1,U > 

IF  (ITER  .EG.  0)  NCH0SF(8)  -1 

IF"  IITFR  .EG.  0)  NCH0SE(9»=1" 

IF  (ITER  .£0.  0)  NCH0S£<7)=2 
I14=1DB( 13J+1 
ICHOSE  (9  >=DATAb“(  i , U<t  j" 

II =*  D& (o ) 

C0NVt(T=DATA6(  2J,Il-t)*R<CHDSE(9i 
WT  =WT+0A TAB (23 , 1 14  > 6NCH0  SE  (9) 
VOL=VOL+DATAB ( 24,1 14 J*NCH0SF (9) 
PL=PL-t'f)A  TAB  ( 16,114)  *NCHOSE  (91 


PLMIN=PLMIN+DATAfi  ( ItsVi  14|*UCH0SE(  9 ) 
IF  (lPlC(l)  .NE.  0)  JI=1PIC(1)+1 
IF  (ITER  .GT.  0)  J1=IPIC(U 

(IPlCll)  ~.eu'.  0)  jl=IDB (7 ) +1 
(JI  -GT.  IDB(B>  I GO  TU  118 


IF 
IF 

JI£=IDB(8) 


C ES(6)  CORRFS  EARTH  SENSOR S,C( 5 iCURRES  CONTROL  TFhInG* 

C 0HA(2>  CORRi  S DESPIN  MECH  ASMB,&(3)  CCJRRES  GIHBAL, 

C _ GHj;ORRfcS  G1M6AL  ANGLE 

ISN  0069  ' IF  (iTER  .GT."  6) GO  T6  112*"', 

ISN  0071  103  DO  104  1=1,6  . 

ISN  0072  104  ES (1 )— DA TAB( I+5, Jl ) 


00000386 

00000390 

00000400 

00000410 

00000420 

o00000430 

00000440 

00000450 

00000460 

00006476 

00000480 

00000490 

00000500 

00000510 

00000520'* 

00000536“ 

00000540 

00000550 

00000552 

00000555 

00000560 

'00600576' 

00000580 
00000590 
0600066Q 
00000610 
00000620 
6b 0006 36 

00000650 

00000660 

00000670  . 

00000680 

00000690 _ 

00000766" 

00000710 

OOOOO 720_ 

00000730 

00000740 

00000750 


9-76 


ISN 

0073 

ISN 

0074 

ISN 

0075 

1 SN 

0076 

1$N 

0077 

ISN 

0078 

ISN 

0079 

ISN 

0080 

ISN 

0081 

ISfi 

GO'S  2' 

ISN 

0083 

ISN 

0084 

' ISN 

0085  " 

ISN 

0086 

isfr 

0087 

ISN 

0088 

ISN 

0089”  " 

** 

' ISN 

0091 

ISN 

0092 

' ISN 

0093 

ISN 

0094 

ISN 

0095 

ISN 

0096* 

ISN 

0097 

ISN 

‘009  9 

_1SN 

0100 

~C'~ 

ISN 

0102 

ISN 

0103 

ISN 

0104 

c 

ISN 

0105 

ISN 

0106 

ISN 

0107 

ISN 

7 

0106 



I 1=1 DB m 
DO  106  1=1,2 

lOo  DMACI J=DATAB( 1+6, II > 
li=IDB(6'T'  “ 

DO  108  1=1,5  . . 

108  Cm=DATAB(I+5,ll) 

~I  I = T0B  ,7 ) 

DO  11.0  1=1,5  • 
lip  _G ( I 1=DATAB ( 1 +->  » 1 1 1 

‘ li=ID~B(5)  “ 

GH-DATA8 (6, II ) 

1 12.  XM  1=.  1 16* ( 320 .*60. *XNN  1/(21. *R  J *CIMEGRJ 


XM2=.G3*{360.*b0.*XNN)/T21  .*RJ*L)M£GR) 

XK2=SGRT ( (XNN*FS( 2 )/2i. )**2+(XNN*ES (6)/2l. )**2+(XNN*DMA{ 2 ) /21 
*+XM2#XM2) 


114 


XK1-SQRT ( (ES ( 1 )/2.94j**2+tFS(3 J/2.94)**2+CC4J**2+C  15 1**2  + 
*<75.*DKA(L)/PJ)**2+( ./5/PJ>**2> 

EZ=Xm1+XK2  

IF  (K.tW.U  &IT  TO  “114  

E Y-SURT ( ES<4)**2+E  S< 5)*=2  J+XK1 
&X=itZ 

GO  TO  116  ' ™"  ‘ ' 

GT=G  ( 1 ) *G ( 1 ) +G { 2 ) *&  ( 2 ) +G 1 3 )*G«3) 

_■  Jz*fS?RI  ( £S  14 ) ** 2+t Sj[5 ) **  2 ) +SQR1(XK1**  2 +GT+C  ( 1 ) **2  +GH*GH  J 

FX=SWRT  l XMl*J,*<c.+Lr  ( 4)** 2)  +SwRT  ( XK2**.:  +C  ( 1 )*=2+C  (2  > **2+C  ij  3T**2 
*+GH*GH+GT) 

.L£.  PhIRX  .AND.  JEY  .L£«_  PHIRY  .AND.  E2  .LE.  PHIRZ) 

* GO  TO  120  ” ‘ 

J1=J1+1 

IP  <Jl  .Lfcj.  J1E)  GO  TO 

last  one  check*  n “anlT 
116  ICHQJ>E  (8)=-l 
RETURN 

‘'ACCEPTABLE  devicF's ELECTED”  ‘ 

120  IPlC(i|=,n 
rpiU2)=o 

I CHOSE  ( 8")  =DATAB  fl , J1  > “ 

WT=WT+DATAi( 23,J1 )*NCHOSE(8) 

■J(£!r~v.0l:+DATAB  <1*#  Jl)*NCHOSfc  <&) 


103 
Von e "found 


• 00000760  ' 

00000770 
_ 00000780 
00000790 
00000800 
_ 000008 10_ 
00000820  ' 
00000830 
_ 00000840 
“ 00000850 
00000860 
OGOOG870 
000 008 80 
)**200000890 
_ 00000900 

00000910 
0P000920 
00000930 
- 00000940 
Poo 00950 
’ 00000960 
00000970 
00000980 

00000990^ 

00001000  ” 
00001010 
00001020 
00001030 
00001040 
00001050 
00001060“ 
00001070 
00001080 
00001090 
00001100 
ooooiiio 
00001120“ 
ooooir30 

00001140 


ISN  0X09  ~ ' 
ISN  0110 
ISI^  0111 
ISN  Oil 2 ’ 

ISN  0113 
ISN  0114 

' c 

c 

ISN  0115 
ISN  0U6 
ISN  0117 
ISN  0118 
ISft  oil 9 
ISN  0120 
ISN  0121 
ISN  0122 
ISN  0123 
ISN  012V 
ISN  0125  ’ " 

ISN  0129 
ISN  012 
so  iSN  0128 
Xj  ISN  0129 
"J  TSN  9131 

ISN  0132 

ISN  0133 

ISN  0136 
JtSN  0i35 

ISN  0136 

ISN  0137 


ISN  013b 
ISN  0139 

C 

ISN  0140 


PL=PL+DATAB(16»jf)*NCH0SE(8)  / ' “ 

PLMlN=PLMlN+DATAa(18, Jl)*NCH0SE(8) 

TI»267.*TPRIH 

FF=2*5 

PC=14.Lt-9*FF*DX*DI/(RJ*.4*PHIRX) 

RETUFttt_ 

Yaw  SPIN  CONFIG . ' ■ - 

INITIALIZE  SKIPPING  SOME  IF  ITERATING 
200  IERR=0 

TFMPIN=SATINX  ' " ‘ “ — - ' 

SATTNX=SA7IN2 

SATINZ=TEMP1N 

11-1 DB  (S  )+l “ - 

ICHt!S£(n-OA  TABU,  III 
I2=IDB(9K1 

I3=IDB(10Y+1  * *"  ■■  ™ “ 

ICHGSE(2)=DATA6<1,12) 

ICH0SE(3)=DATAB(1,I3) 

I14=IDB(13)+1  " " ' ‘ “ 

ICH0SE(6)=DATABC 1,114) 

I7?IPb(2) 

1 CHOSE  ( 7 ) -DAT  AM  1 » 1 7 j ~ 

IF  ( I TER  .GT.  O)  GO  TO  203 
_ DO  2 02  1-1,9 

202  NCHOSfc(I)=l " ” 

203  MT=WT+NCHOSt  1 1 )*DATAb( 23 ,11  )+NCHOSE (2 )*DATAB( 23*12 )+NCH0SE(3  )* 

..  _ * DATABt  23,13  KNCHOSF  C 8 ) ♦DA TAB  123 , 114)+NCH0SE  C7  )*DATAS(23 , 1-7) 

C0NVWT=DATAM23,U4)*NCH0SPt6)  ' 

VOL=VOL+NCHOSL ( 1 )*DATAB( 24,1 1 )+NCHOS£ (2 ) *0A1 AB< 24, 12 ) +NCHOSE (3 )* 

- D ATAB  (24, 13  ) +NCHOSE  ( 6)*DATAB(  24,114)  +S4.CH0  S E ( 7 ) *D  ATAB  (24,17) 

PL-P  L+NC  HO  SE  ( 1 ) *, OAT  A B ( 16 ,11  ) +NCHOS  E ( 2 ) *DAT AB ( 16,'  12 ) +NCHOS  M3 ) * 

* D ATA8{ 1 0,13) ♦MCHOSEl 6 )*DA  TAB (16,1 14 )+NCHOSE ( 7 )*DATAB (16,17) 

PLMIN=PLMIN-»NCHOSE  (l)*PATA6Ua,ll)+NCHaSE(2)*DATABMfl.T?  ) + 

* NCHUSE(3)*0ATAbTl6,13)+ji{CH0SE(6)«DATAB(i8,lI'4)+NCHdSE(7)«  “ 

* PAT AB { 18,17) 

_ 1CH0S£(8)=0  __ 

ICHOSE  (9  )=0  — 

IERR=1  MAX  ALLOWABLE  SYSTEM  ERROR  UNACCEPTABLE 
IF  ( PHIRX  .LT.  .123)  lERRsl 


ISN  0142 
ISN  0143 

Tsfe  0145 
ISN  0146 
ISN  0147 
ISN  '0146 
ISN  0149 
ISN  01 5 t 
'ISN  0151 

ISN  0152 
ISN  0154 
ISN  0155 
ISN  0157 
IStf  0158 
ISN  0159 


DB=PHIRX^4  

IF  C DP  .LT.  .05 ) DB=»05 
CALCULATE  F VALUES 
Ftl >=I0PhI#DT/57.3*.044D)»FE/DY 
F <2)=<DPHI*DT/57.3+.04*D)*FE/DZ 
JFJ3  ) =2.  * . 04=frD*DPHI/57 . 34FE/DX 
'* F(4)=xmd/ox  ‘ — * — 

F(5)=YMD/DY 

...  FM1>!5A«AXl(F(l),F(2),F(3)4F(4)tFI5n 
F MAX=  ( Plidf  RX*X J | / f 2.'*D I *DX  i ""  ‘ 

IERR  IX  MAX  RATE  ERROR  TOO  SMALL 
IF  (FMAX  .LT.  2.*FMIN)  IERR=I£RR-HO 

FF=2T*FMIN  ■ " 

IF  (FMAX  .LTi  FFI  FF=FMJN 
TOM=AMaX1(XMO,YmO} 

'£=540.  *TDM/ f63T#FF  j *7X2-06”  " “ “ 

if  f e .lt.  o.)  t:=o. 


f .ISN. 

£ !SN 
JS_N, 
ISN 
ISN 
ISN 
ISN 
ISN 
ISN 
'Tsn 
ISN 
ISN 


■GIST 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

or?2~ 

0174 

0175 


SELECT  EARTH  SENSOR  WITH  PMIXI=PHIRX 


IF  (IPICdJ  „GT."  0)  GO  TO  2C4" 
Jl-IQteUn  + l 

GO  TO  206 


204 

206 


I 


ISN  0116 
ISN  0177 

TSN  oIT£ 

ISN  017.9 


211 


ISM,  0181 
ISN  0182 
ISN  0183 


Ji=ipic'm  ' 

J1E=10B(12)  ■ 

EL4DATAbU>t.U) 

t i =io6Ti  or"' 

PHIX=$WRT  (DATABdt  JI )**2>DATAb(8»  J1  > *$=2  ) +D6+DATAB  { 11 
IF  (DATAM&,  Jl)  „GT.  OBI  SO  TQ  211 

IF  f PH  IX  '.“gT.^phIr  XT  GO*  T0~Z1  1 

ICH0Se(4)=DATAS(i,JlJ 
IPICU)=JI 

EARTH  SENSOR  SET  " 

GO  TD  212 
J2=J1+1. 

TpicT2r=o  - ~ ■ • ■ “ — - 

IF  <J1  -LE.  JlE ) GO  TO  206 
MINUS  ONE  FLAG  FOR  NOT  FOUND 

ixhosB<4T=-I — ~ - 

ICHOSE {5 )=0 
RETURN 


*11) +E 


00001540 
00001550 
00001560 
00001570 
00001580 
00001590 
. ” 00001600 
, 00001610 
00001620 
00001630" 
00001640 
‘ _ 00001650 
00001660" 
00001670 
00001680 
00001690 
.00001700 

00061710 

T.  000 G 1720 
00001730 
00001740 
0,0  00 1750' 
. . 00001760 
.00001770 
“ • 00001780 
00001-790 
•.  000016  00 
00001810 
00001820 
..  00001830 
'00001840 
- 00001850 
00001860 
. 00001870 
00001880 
O0C0189O_ 
0000 1900 
00001910 
00001920 


C HERE  WHEN  ACCEPTABLE  EARTH  SENSOR  FOUND  ~ 

ISN  0184  212  H-ZJ  * OMEGS 

C SELECT  REACTION  WHEEL  WITH  MOMENTUM  GRTR  THAN  H 

ISN  0185  J2  = lp'rC(2V  ""  " 

ISN  0186  IF  <J2  .Gfc . 1DB<13>  .AND.  ITER  ,t«..  O)  IPIC(2)=0 

ISN^0188  IF  (IPICI?  ) .EQ.  0)  J2=TDB  ( 12J+1 

ISN  0190  “ IF  TiTER* .EQ.  0 .AND.  IP  10(2)  . NE.  0)  J2=J2+I 

ISN  0192  J2E=1UBI13) 

ISN  0111  _ _214  H1=DATAB(6,J2> 

ISN  0194'  IF  ( rtl'.GT.  H)  GO  TO  218 

ISN  0196  J2=J2+1 

ISN  0197  IF1  ( J2  .LE.  J2b ) GO  TO  214 


ISN 

ISN 


0199 

0200 


ISN 

ISN 

ISN 


0201 

0202 

0203 


ISN 

ISN 

ISN 

so  ISN 

I * 

\Q  ft 


0204 

0205 
0206 


0207 


ISN  0208 


ISN  0209 


ISN  0210 
ISN  0211 


I PIC (21=0 
GO  TO  211 
ACCEPTABLE 


COMBINATION  FOUND 


218  1 CHOSE ( 5 ) =DATAB ( 1 , J2  ) 
IPIC(2)=J2 

WT=WT+DATAB (23» J2)*NCH0SE(5>- 


DATAB(Z3,J1)*NCH0SE(4) 
DATA»( 24, J1 l*NCH0SE{4) 


V0L=V0L+DATA3 < 24 , J2 ) *NCHOSE ( 5 ) - 

PL=PL+DATAB(16,J2I*NCH0SE(5J+DATAb(I6,JU*NCH0SE(4| 

PLM1N  =PLMIN»DATAa(18tJ2) *MCHOSE ( 5 ) *DATAB(18,JI )*KCH0S£(4) 
XI  =37000000. *TPklM*DX*(F|F*Dl)**i/(XJ*.4*PHtRX  I 
*+2./57.3*.G4*n*DPHI*Ffc*TSMALL/0X 
*+XNU*XJ*PD0T0/(57.3*DXJ  1 


*+2.*XJ*PD0TX*XN/(57.3*0X)  - - 

*+XMD*TAUX/DX 

71=37000000.  *TPF,lM*DY*tFH‘01)**2/(YJ*.4*PHIRY) 


*+  ( DPH 1/5  7 . 3*D1  +.  04*D  )*FE*T  S'MALL/DY 
*+XNU*YJ*PD0T0/(57.3*DY) 

* +2 . *Y J*P  DOTY  *YN/ ( 57 ,3*DY ) 


*+YMD*TAUY/DY 

ZI = (DPHI /57.3*DT+ • 04*D }*FE*TSMALL/DZ 
*+XNU*ZJ*PDOTO/(57.3*DZ) 
*+2.*ZJ#PD0TZ^ZN/( 57. 3*0Z) 

* I=X1 +Y1+ZI 

FC=14.1B-9*FF*DX*DI/(XJ*.4*PH1RX) 


ISN  0212  RETURN 

* C 3-AXIS  M CONFIG 

C CHOSEN  AS 


00001930 

00001940 

00001950 

00001960 

00001970 

00001980 

00001990 

00002000 

00002010 

00002020 

00002030 

00002040 

00002050 

00002060 

00002070 

00002080 

00002090 

00002100 

00002110 

00002120 

00002130 

00002140 

00002150 

00002160 

00002170 

00002180 

00002190 

00002200 

00002210 

00002220 

00002230 

00002240 

00002250 

00002260 

00002270 

00002280 

00002290 

00002300 

00002310 


vD 


ISN  0213 
1SN  02.14 
ISN  0215 
ISN  1*216 
ISN  0217 
ISN  0218 
ISN  0219' 
ISN  0220 
ISN  0222 
ISN  0223' 
ISn  022** 

ISN  0225' 
4 ISN  0226 
o 

ISN'0i27 

ISN  0226 

ISN  0429 
ISN  0230 
ISN  0231" 

_ ISN  0232 
ISN  0233 
ISN  0234 
I SN  0235 
ISN  0236  ‘ 
ISN  0237 
ISN  0238 
fSN’0239' 
ISN  0240 
ISN  0*.4l 


302 

303 


C ATTITUDE  RtF  " 

C VALVE 

C ASC 

C ‘ ' GYROS  ' ‘ ' ' ' 

C ■ EARTH  SENSOR 

INITIALIZE 

300'IE.RR  = 0 ‘ ' ‘ “ 

Il=rO£U4|  + l 

I2=IDBC15|*1 

I CHOS  F ( 1T=DA  T ABC 1,11)  ' 

ICW0$t(2I=DATA8(l,I2) 
l 14=IDB( 131+1 

1CH0SEC3 >=DATAB( 1, Ii4)  ” ' 

IF  (ITER  .01.  0>  btl  TO  303 
UO  302  1=1,5 

N CHOSE  ( I )=1 - . - - - — — 

WT=WT+NCHOSE ( 1 ) *DA TAo I 23 , I 1 > +NCHOSE { 2 I *0 AT A8 ( 23, 12 ) +0ATA B C 24 , I 14 
*_  NCHOSEf  3 }' 

” LONVWf =DAT AB ( 23,1 I )*NCHQSF (I J”  ' “ 

V0L=ViiL+NCH0Sf  U i *DATAfa(  24, 1 i ) +*,CHGSE*(2  >*0ATAB(24, 12 1 + 
f NCHOS f < 3 } *n a 1 A u_(  i 4,  1 14  I 

PLsPL+NCHUSfc  l iF*0ATAi?  < Io»li  » +NCHOSE  (21  *DAT Ai  l lt>,12  ) ♦NCHOSElSy* 

* DATAS (16,114) 

, _ PLHIN=RLMIN+NuHOSf  (U*DATAb(  18, 11 ) +NCH0S£-(2  )*DATAb  ( 18,32  > + A 

* N CHOSE  12  )*DA1 Ab  f j.8,  a!4)  “ * ' “ * ‘ ~ “ 

DO  301  1=6,9 

301  I CHOSE (II =0 

0HFG0=I  . IBt^^lO.*^ 6/(24. 05 3*1000. *1000. +6076. *ALf)*Vl3  ”' 
CALCULATE  F VALUES 
F(l)=tPPHI»DT/57.3+.04»P }*Ft /DY 

F(2)^DPHI*DT/S7.3+;V)^*U)Vfe7dZ  " * ” ~ 

H 3)=2.*.04*n*0PrtI/5  7.3*Fl/nx 
F(4)=X«P/Py 

Ff5)=YMd/0Y  * • " ' 

F ( ft )=ZMO/DZ 

_FMIN=AMAX1 (F(l),F(2i,F(3),F(^),F(5),F(6)) 

F { 7 )=.PuUTRX*7  J/  t PI  *(»a  I 
F { 8 ) - Pt'OT  R V*V  J/  ( 01  *PY  J 
F(4)=.P0UTR2*Z  j/(Dl*P/i 


00002320 
00002330 
00002340 
00002350 
00002360 
00002370 
00002380 
00002390 
00002400 
OUOO'24lO 
00002420 
00002430 
06602440 
00002450 
00002460 
" 00002470 
>*00002480 
00002490 

'60602500" 

00002510 

00002520 

00002530 

00002540 

00002550 

o6602360" 

00002570 

00002580 


00002590 
00002600 
00002610 
'OO6026W 
00002630 
00002640 
' 00002650 
00002660 
00002670 
00002680 
0COC2690 

ooooi 700 


18-6 


ISN  0242 
ISN  0243 

"iSN  0244 
ISN  0*46 
_ISN  0247 
ISN  0249 
ISN  0250 
ISN  0251 
ISN  0252 
ISN  0254 
ISN  0256 
ISN  0258 
ISN  0259 
ISN  0260 
ISN  0261 
ISN  0262 
ISN  0263 
ISN  0264 

ISN  0265 
I SN  ' 0267 ' 
ISN  0268 
ISN  0269 
ISN  0270 
ISN  0271 
ISN  0272 
ISN  0274 
ISN  0275 

TSN~  0276 ' 
ISN  0277 
ISN  0278 


ISN  0279 
ISN  0280 
ISN  0261 
ISN  0282 
ISN  0283 


FM  AX  = A MAX 1 f F ( 7 ) , F (8 ),F<9)7 
IERR=0 

IFRR  IX  MAX  RATE  ERROR  TOO 
iF 


(FMAX  .LT. 
FF=2.*FMIN 
IFJFMAX  .LT. 
D8X=.4*PHiRX 
DBY=.4*PHIRY 
DBZ=.4*PH1RZ 


2.*FM1N) 


SKALJL^ 
lERR=lERRTiO 


FFI  FF=FMIN 


IF 

CDBX 

-LT. 

.05)' 

D6X= 

.05 

IF 

COBY 

.LT. 

.05) 

ObY= 

.05 

IF 

(DBZ 

.LT. 

.05) 

DBZ= 

.05 

00002710 
00002720 
_0 0002730 
00002740 
00002750 
00002760 
00002770" 
00002780 
00002790 
00002800 
00002810 


DDBX=.1*DBX 

0DBY=.1*DBY 

DDBZ=.1*D&Z 


R1=.2*PD0TRX 

R2-.2*PD0TRY 

R3=.2*PD0TRZ 


304 

306 


R=AKAXHR1,R2,R3) 
SELECT  3 GYROS 
_I*  (IPICm  . GT. 
J1-I0B(16>+I"  ‘ 

GO  TO  306 
JlflPJXU  J 
J1E-10BC 17) 
GTEST=DA  TAB ( 6 T J1 } 
IF  (GTEST  .GT.  R } 


GO  TO  304 


00002830 

00002840 

00002650 

000C2860 

00002870 

00002880 

GO  TO  308 


ICHOSE (4 )=DATAb ( I » Jl ) 

SPIC(1)=JI 
GYRO  SET 
I1=IDB(14)+1 
G1=0ATAB  (3»Il}/(DATAE(ll,Il)-*-0MEG0) 

.^f.lO.A7A6ta»li-^iicDATAB<  10,11 )~PATAB<7, I 1)*(PATAB<1 1,11)  +OMEGO  ) } 


00002890 

00002900 

00002910 

00002920 

00002930 

00002940 

00002950' 

00002960 

00002970 

00002980" 

00002990 

00003000 


* / (OMEGO*  (DATAbdlill)  +OMEGO I } 

G3=b/'TAB(10r  II  )/( 0ME60*  t DATABC  11,1 1 )+OMFGO)  ) 
_G0  TO  JJ.0 

308'  J1=J1+1  “ " 

IPIC(2)=0 

_ .IF  (Jl  • Lfc.  J1E  ) GO  TO  306 


00003010 

00003020 

00003030 


00003040 

00003050 

00003060 


00003070 

00003080 

00003090 


9-82  | 


ISN  0285 
ISN  0286 
ISN  0287“ 

ISN  0288 


ISN  0289 
ISN  0291 
ISN  0293 


MINUS  ONE  FLAG' FOR  NOT  FOUND 
ICHOSE (4 ) =— I 
ICHOSE (5 )=0 

“RETURN"  - 

SELECT  EARTH  SENSOR 
310  J2=IPIC ( 2 ) 


ISN  0295 
ISN  0296 


IFCJ2  .GE.  IDE.  (18)  . AND.  “ ‘lTER ”716 • 

IF  fIPlfc|2l  -ECi.  0)  J2=IUB(  17)+1 
IF  (TIER  .EQ.  0 .AND.  IPIC<2>  .NE.  0) 


0)  IPIC('2)'=0" 
J2=J2+1 


ISN  0297' 
ISN  0298 


J2t  =IDB  ( 18)" 

P . ^^7DATA?<  » ^2  ) *DATAB  (6,  J2  )*DATAB  (6,  Ii  J/DATA&<  13 , J2  )* 
* ^T.^PAlAfi_U3fJ2)/DATAB(9TU)  ) 

POMEN=DA  TA B ( 6 , J2  ) *[)ATA&1 6 . JZ ) /DATA“bTI3“,  J2 1*. 026" 


ISN  0299 


ISN  0300 
ISN  03Q1 


ISN  0302 


*t+DATA8(10AJ2)**2)*+2+DATAt>,11’J2,**2)+SQRT*DATA&<9,J2,,:,,C2 
_lY=DBY+rQRTTP PH IW+TDAT AIM  12 , J2T*DATAB  (6,11  )/DATAB(5f 11  ))**T 

*+ddbyJodby?,11>/DATAS(9,11)  ,**2+AY*AV‘,‘(EP1/DATAB,9rI1)  ,#*2 


F 7-OB  T+S  OR  1 1 HATA 1 1 T i nltfi ' *G1  * **2+E*E*«l* &1+A X*A, X+DD6X*0DBX 

E2-HB2+SQRI < <L>ATA8<7,jl)*0MtG0*b3)**2+(DATAe<to,Jl)*G3)**2 

TL  ,CV  ‘T  PHIRX  .AND.  EY  .LT.  PHIRY  .AND.  E2  .LT.  PHIRZ) 


ISN  0304 
ISN  0305 
ISN  0307 
ISKT'0308 


LT. 

318 


U2t)  GO  Tu  314 


ISN 

m 

ISN 

ISN 

iW 

ISN 

ISN 


0309 


318 


03 1C 

0311 

0312 
03“13“ 

0314 

0315 


IF  (EX 
* GO  TO 
~ J2=J2+1 
IF  ( J2  . Lt . 

1P1C(2J=0 

GO  TO  308“  

ACCEPTABLE  COMBINATION  FOUND 
I CHOSE ( 5 )=DATAb ( 1 » J2 ) 

“Tp  IC  ( 2 )- J2 : — 

WT=wT+DATA6(23,j2)*NCHOSL(3)+DATAa(231Jl)*NCHOSE(4) 

— ^1:——  L^flATAt'.  (24t  J2)  *NCHUSE  1 5)  ♦DATAB  ( 24*  J 1 ) *!NiCHOSF  I A » 
PL=PL+DATAE  ( 16  , J2  )*NCHOS£  ( 5 ) +DA1  abTTS ,“3T)^NCH0'SEl4T 

PLMlN*PLMIN+DATAb(ierj2)*NCH0SE(5)+DATAB(18,Jl)*NCHaSb(4) 
XI=3 7000000 .*TPR I M*DX4(FF*D1 1**2/ (XJ4DBX } 
*+2.757.3*".04*D*DPHlVFL*TS_MArL/DX  — 

*+XNU*XJ*PDOTO/ (57. 3*DX) 

*+?„•  *XJ  * P DPTX *XM/  ( 5 ? . j*DX ) 


00003100 
00003110 
000031.20 
00003130 
00003140 
00003150 
00003160 
00003170 
00003180 
000031.90 
00003200 
__  00003210 
00003220 
00003230 
00003240 
00003250 
00003260 
00003270 
) 00003280 
00003290 
00003300 
“00003310 
00003320 
00003330 
00003340 
00003350 
00003360 
00003370 
00003380 
00003390 
00003400 
00003410 
00003420 
00003430 
00003440 
00003450 
00003460 
00003470 
00003480 


ISN  0316 


ISN  OBI 7 


ISM  031b 
ISN  03i9 
ISM  0320 

ISM  032 1~ 
ISM  0322 
_ISN  0323 
ISN  0329 
ISN  0325 
ISN  0326 
•o  ISM  0327* 
£>  ISN  032b 

U) 

fSN  0329' 
ISN  0330 
ISM  0331 
ISN  0333' 
ISN  C3J-* 


ISN  0335 

ISN  0337 
ISM  0339 
ISN  0390^ 
ISN  0393 


*+*md*taux/ox  ~ — 

YI— 37000 000 .*  TPR 1 M*D  Y* ( FF*DI ) **  2/ ( Y J*DB  Y ) 
*+<DPHl/57.3*DT+.09*D)*FE*TSMALL/DY 

*+XNU*YJ*'Pb0tG/(57.IvDY)  “ “ 

*+2.*YJ*PD0TY*YN/<S7.3*DY) 

*+YKO*T AU Y/DY 

Zr=37006GGb.*lPKlM*bZ#(FF*01)**2/(ZJ*DBZr  ‘ 

*♦ t OPH I /57- 3*D T+ . 09*D ) *Ffc*TSKALL/OZ 
*+XNU*Z J*POOTO/ ( 57 . 3*DZ ) 

*■♦■2.  *2j*PPLTZ  *ZN/  { 57.3*02  > 

* +ZMD*TAUZ/Di 
TIfXl+YI+ZI 

FC'=i4.1t~9*F”F*bX*0I/'CXJ*.4*PHIRX”)  ~ “ ' 

RETURN 

_C  ON  FI  GUR A T1 0N_4 

400  I ERR- O'  ‘ 

t)Jl=XJ*PD0TX/57.3 
QJ2=YJ*PD0TY/57.3 

QJ3=Z j*PD0TZ/57.3  “ • ""  ’ “ ‘ 

rtMANs=AHAXl  (uJlfw>i2fQJ3  ) 

TMD=AMAJC1(XHD^,YMD2,ZHD2) 

HR t0=HMAN+8O4O6 • *TL*TMD  ' 

Tkt  0=HMAN/TACCL  L+TMr 
_C  _ TEST  IF  CIWLY  3rAXiS  WHEELS  OKAY 
PbOTM=AMAXl(PD6TX*PDbtY,PD'nTZ) 

PDGTRH=AMIN1  ( PDGTRX,PDOTRY,PDOTRZ ) 

IP  «&f.  -02  .AND.  .000083J*PDOTM  .LT.  PD0TRM1  GO 

DC  402  I = i,9  ~ “ ■ 

9U2  iCHOSEII )=— 1 

_C TEST  IE  3-AXIS  ACCEPTABLE 

C I ERR  iXX  MEANS  3-AXIS'  WHEELS  ACCEPTABLE  ' 

403  IF  (1 RhO/HRfcO  .LT-  -1)  I£RR=100 
C.  ..  _IgRR  I XXX  MEANS  DOUBLE.  GIMBAL  CMG'S  ACCEPTABLE 

IF  CtaCClL  -LT.  *0.)'  ItRR  = jtRR+iOOO ' “ 

hl-hhan+t md*tl 

HS=AM1N1JQJ1,CJ2,0J3) 

HS=HS+TMD*TL  ' ’ 

C Stl  FIXED  EQU1PMFNI  ELtCTRONICS  PROCESSOR, VALVE  DRIVER, 

C SENSOR! SUN  OR  HORIZON) 


TO 


00003490 
00003500 
000035H3 
00003520 
00003530 
00003540 
' 00003550 
00003560 
00003570 
00003580 
00003590 
00003600 
00003610 
00003620 
00003630 
' 0000 3640 
00003)650 
000ft3660 
00003670 
00003680 
00003690 
00003700 
00003710 
00003720 
00003730" 
00003740 
40300003750 
~ "00003760 
00003770 
000037 80 
00003790' 
00003800 
000038 10 
~ 00003820 
00003830 
00003840 
00003850 
00003860 
00003870 


' 9-84  • 


ISN  0342 
ISM  0343 
_1  SM  0344 
’ I’ST?  0346" 
ISN  0348 
ISN  0349 
ISN  0350 
ISN  0351 
ISN  0352 
ISN  035 3 
ISN  0354 
ISN  0356 


ISN  0357 
ISN  0356 


ISN  0369 
ISN  0360 


ISN  0361 


ISN  0362 
ISN  0363 
ISN  0364 
ISN  036c 


'ISN  0368 
ISN  0370 
ISN  0371 


ISN  037c 
ISN  0374 
ISN  0375 
"ISN  0377 
ISN  0373 
ISN  0379 
ISN' "0380 

ISN  0381 


ii=ib'B(i8)+i " 

12=1DE(15)+1 

if.  fISAT  .EG.  1)  1 3=  I OBI  17  )+l 

IF  USA!  ,&T.  1)  13=106(81+1  

I CHOSE { I }=DAl AH (1,11) 

I CHOSE (2)=DATAB(i,IZ) 

i' C HOSE  <31  =CAT  5 H ( 1 f*i3  } * ” ' 

ICHCSF ( 7)=0 

iCHOsr(8)-o' 

I 'CHOSE  (9  J=0  ■ . * - 

IF  (ITER  «GT.  01  GO  TO  407 
_t>0  405  1 = 1,9 

405  NCHOSE.  (I  )=i  - - 

^WTjJTjjCHOSE  < 1 ) *DATAb  (23,11)  +NCHGSE  ( 2 ) *DATAB  (23,12)  +DATA  B ( 23 

VOL=VOL+NCHOSf  ( n*DAf  AbT24, 1 1 ) +NCH  OStl  2 > * DAT A b (24  7 12 ) '+  D ATA  bT 
**NCHQ$E( 3) 

ijjNCHOSfc  ( 1 ) *OATA«  16 , 1 1 ) +NCHOSE ( 2 ) *DAT  AS  (16,12)  + DATA 8 (16 

PtMlN-PLMIN+NCHOSfc  ( I )*0A7Ac(  18 , 11) +NCHOSEI 2 )*DATAB(  18*12  ) -f 
* DATAb(_l8,13)*NChOSE ( j) 

STLECT  CMto 

GAMMA=ATAN(HS*(XNNN-2. )/(HL*XNNN) ) 

H=rtS/(xNNN*Slri(GAHMA) ) 

=7Pic(ii  ■"  — 


00003880 
00003890 
00003900 
00003916 
00003920 
00003930 
00303940 
0,0003950 
0C003960 
66603970 
00003980 
00003990 
60064066" 

Q0004010 
00004020 
24,13)00664030 
00004040 
00004050 


>13) 


>13) 


Jl^l 


'410 


43- 


IF  UPlL(l)  .GT.  0) 

IF  (1P1C(1)  .tu.  0)  J1=J DP l 19) +1 
RETURNS  HERE  TO  TEST  N(  W CMG 
IF  (0 ATA b ( 6, J i ) .LT.  H)  GO  TO  414 
SD01M=2.*H/(TACCEL*DATAt>(6tJl ) ) 
TMAX=DATAb( 6 , J1 ) *P0DTM/57 .3 
IF  (SDOI H 
Jl=Jl+I 

IF  (J1  .Lr  . 105(20))  GO  ID  410 
lCH0Se<4}=-l  " 

ICHOSf (5 i-0 
JCH0SE(6)=0 
RETURN 

CMG ‘ SELECTED 


00004060 

00004070 

00004080 

00004090 

00004100 

00004110 


• LL*  DATAB(7,J1)  .AND.  1MAX  • Lfc. "OAT AB( 8% J1 ) )C0  TO  417 


417  1C  HOSE  (4)=['AT4b{t,Jl) 


00.004120 
00004130 
00004140 
000 04150" 
00004160 
'00004170 
00004180 
00004190 
00004200 
66604210 
00004220 
60004230 
00004240 
00004250 
00004260 


ISN  0382 
ISN  0383 
‘ ISN  0384 
ISN  0385'“ 
ISN  0386 
ISN  0367 
ISN  0388 
ISN  C369 

"ISN  “C3V0  “ 
ISN, 0392 
ISN  0394 

ISN  0393 
ISN  0396 
~ ISN  0397 
ISN  0398 
ISN  0400 
IS*  0402 
ISN  0404 
ISN  0406 
vo  ISN  0408 
oo  ISN  0410 
^ £-412 

ISN  0414 
ISN  0416 
ISN  0417 
ISN  0418 
ISN  0419 
ISN  04 LO 
ISN  0421 

ISM  0422 


'NCH0SE(4)cXNNN  " " 

XKK=DATAB(7,Jn*PD0TM/57.3 

W-— 32 .»< .068*«29*XKKt*(DATAB(6» JD+960. > 

P = ( . 0 1 0 3 + .023 4* X K K J*  {DATA  6 ( o»  Ji  )"♦ 1 430 .1  

- V=7.45+( .002o5-.0Q62*XKK>*(DATAa(6,Jl 1-1720.1 
0A7A^<23,Jil=W 

DATAB (24* ji| =V  ' ~ 

DATAB(l8,JiI=»> 

GVROJIEXT 

IF  ITPIClLl  .GT.  Oi  J2=lPie“(2} 

IF  |IP1C(P  .FQ.  0* 

420  1 CHOSE (S )~DaTa6( 1»J2 ) 

SFLECt  STAB  SENSOR  " . ~ 

PHJK=AHI NI f PHIRX » PHIRY.PH1RZ ) 

TSHAX=.3*PHlR 

J3=IPIC(3)  ^ ‘ ~ 

IF  ( J3  .Gfc.  IDS ( 21 ) .AND.  ITER  .EG.  0»  IP1C(3)=0 

I IF.  ( IPIC(3)  .fcU.  OJ  J3—ID8( 201+1 

IF  f ITER  .EG.  0 .AND.”  IPICf3|  • *$£*  OJ.  ,J3=M3+1 

422  IF  IDATaB(6*J3J  .GT*  1.  .AND.  PDGTST  .GT*  2.J  GO  TO  440 

IF  (0ATABC6* J3)  *EQ.  2.  .AND.  PHIFOV  .GT.  3Jf.)  GO'  TO  440 

IF  (DATA 8 (6*  J3  ) .EG.  I . .AND*  PUOT AV  . LE * .016JGOTU  440 

IF  (DATA8I6* J3I  .EQ.'  1.  -AND.  ThOLD  .GT.  TSMAX I GO  TO  440 

if  (0ATAB(6» J3 1 .GT.  I. J GO  Tu  • 

IF  ( DATAB (9*33 j *.451  *LT.  *..1  GO.  TO  440 
XNM=ALOGlO(-4.+.4Sl*DATABI9,J3)> 

_ ISC=57.3/(XNM*DAjrAblfi,J3)*POOTM> 

OPHiAV'-PDOfM*tsC  *“*'  * ' " 

PH  lEt  =0  A TAB  ( 6 * J2 1 *T  SC 

PHI£SFgQATA6( 7* J2)*0PH1AV 

PH 12= SORT ( OAT A9 ( 7* J3 j**2+( lGOOC833faPDOTMI**2+PHlfcB*PHIE&+~ 
* PHIFSF*PH1ESFj 
GO  TO  426 


ISN  0423  424  PrtTt-S0RT<0AlAj(7*G3l**2  + ( .00008i3*POtltw[i'**2»  ~" 

ISN  0424  • 42  6 IF  (PHIE  .U.  PHIP*  GO  TO  460 


ISN  Q42&  440  J3+ 1 _ 

ISfi  0427  ~ IF  (J3  .LE."  IDB(2T)i  GO  TO  422 


ISN  0429  IPIC(3»=0 

ISN  0430  J2=J2+1 


00004270 

00004280 

00004290 

00004300 

00004310 

00004320 

00004330 

00004340 

00004350 

00004360 

00004370 

00004380 

00004390 

00004400 

00004410 

00004420 

00004430 

00004440 

00004450 

00004460 

000044 70 

00004480 

00004490 

00004500 

00004510 

00004520 

OOOQ4530 

00004540  ' 

00004550 

00004560 

00004570 

00004580 

00004590 

00004600 

00004610 

00004620 

00004630 

00004640 

00004650 


ISN 

0431 

ISN 

0433 

ISM 

0434 

ISN' 

.0435 

ISN 

0436 

ISN 

”0437  ' 

ISN 

0438 

ISN 

0439 

ISN 

0440 

ISN 

0441 

ISN 

04 4£ 

ISN 

0443 

Tsf* 

0444 

ISN 

044-5 

ISN 

0446 

vO 

ISN 

0447 

00 

ISN 

0448 

0 

* 

ISN 

04^9 

ISN  .,0450 

ISN 

0451 

I S"n 

0452 

ISN 

0453 

ISN 

0454 

ISN 

0455 

ISN 

0456 

ISN 

0457 

ISN 

0458 

ISN 

O46C 

ISN 

0461 

ISN 

0462 

ISN 

0463 

ISN 

0464 

*50 


C 

C 


500 


5 02 


_504 
5 Os 


IF  (J2  «LE.  IDB ( IT) ) GO  TO  420‘  

IP1C(2)=0 

j2=lDB(Ifc)+l 

GO  Tq  41'*  ” ” ■ 

ACCEPTABLE  COMBINATION  FOUND 
ICH0SFI6 )=DAT&B ( I» J3) 

IPTC(I)-J1 — 

IPIC ( 2 )=J2 
IPIC(3)=J3 

^Wf*UiXN'm+NCH6Se  ( * )v0AT  A& < ^3,J2)“+NCH0S"eT6  >*DATAB  ( 23, J3) ' 

VQL-VGL+V*XNNN+NCHOSFCM*OaTaBC24,  J2>+*CH0SE(6|*DATAb(24,J3l 
- t +P* X^m*»Lh OS t ( 5 1*0 A 1 A 6 (I 6 , J2 i +WC.HC  SE( 6 } * DAI  Ab  { 16  , J 3 ) 

PLM3N^PLMIN+DA7Ab{ics,Jl}*XNNN+NCHGSe(5j*DATA£l(ifi,J2TiNeH0”SET 

* DATAb ( 18 , J3 ) 

' _NOW  THRUST  AND  IMPULSE 

F(  1 J = CD'PHI*"DT/5T.3^.04Vd)^FE/DY  * ' 

Ff2)=IUPHi*0T/57.3+.04*D>*FE/0Z 

F(3)=2»/57.3*.0*»D*DpHI»EE/DX 

FF=AKAXl('F(ir,F(/j  ,F(3T)  ' 

Tl  = (F(l)+F(2)-»-F(3J)  »DI 
» _+XNij*PDJTO/57  *3*_(  X J/DX+  Y J/UY+Z J/DZ) 

* *T PRI  M*2592G00.  *’(  XMO/PX+YMO/DY+ZMD/DZ ) 

FC=FF*DX*DI/<XJ*.4*pHIRX>*14*lf-9 
RETURN , I 

"CONFIGURATION  § I * ■ — - 

SELFCT  FIXED  K'UIPMFNI 
II— IDE(JL5  >-*-1 

I2=IDBi21l*r'  ''  - ------- 

ICHOSE ( 1 J =DATAb (1,11  ) 

- ICHDSfe  1 2J  =DAJ AB 1 1 ,12  j__ 

OMIGOyl.  186^*10. **8/(  24.055*lbOO.*10Q6.+6G76.*ALT  )**'l.3 
DO  'iGti  1 = 5,4 
ICHOSE  <1)=0_ 

IF  ( ITtR  .gT.~  01  GO  TO  505 
DO  504  1=1,9 
NCrtOSEU  i=l 

WT=Ml  +NCHOSF  ( 1 )*DATAol?3,Ii  J+NLHOSF  I2)*DAI  AB(23',rr>  ' ' 
VOL-Vbt+NCNUbf  ( X ) *DATAB  ( 24  f 1 i ) *NrCHOM  ( 2 ) *DAT AB  ( 24*  12  ) 
PL=PL+NCHOSF  ( n^DATAt-  ( 16,  1 , )+NCHOSE  < 2) *DAI  AB(  It,I2) 


6)* 


00004660 

00004670 

00004680 

00004690 

00004700 

00004710 

00664720 

00004730 

00004740 

00004750 

00004760 

00004770 

00004780" 

00004790 

00004800 

00004810  “ 

00004820 

00004330 

00004840 

00004850 

00004860 

00004870" 

00004880 

00004890 

0006496b 

00004910 

00004920 

00004936  ' 

00004940 

00004950 

00004960 

00004970 

00004980 

06604990  " 

00005000 

00005010 

66065026 

00005030 

00005040 


ISN  0465 
. ISN  0466 
ISN  0467 
ISN  0468 
ISN  0469 
ISN  0471 
ISN  0472 
ISN  0473 
ISN  0475 
ISfo  0476 
ISN  0478 
ISN  0480 

ISN  0481 
ISN  0483 
ISN  0484 
ISN  0486 
ISN  0487 
TSN  0488  ' 
ISN  0489 
I SN_  0490 
i ISN  0492 " 

, ISN  O4V4 
ISN  0496 
'I  STT  0497” 
ISN  0499 
ISN  0500 
ISN  0502 
15 N 0503 
ISN  0504 
ISN  050*5 
ISN  0506 
ISN  0507 
ISN  0508 
ISN  0509 
ISN  0510 
ISN  0511 
ISN  0512 
ISN  0513 


PLMIN=PtMIN4NCH0SE ( 1 l*DATAB( 18, II >+NCH0SE{2)*bATAB ( 18,12) 
IERR=0 

__  EBrAM=AMlNl (PHIRX,PHIRY ) 

''DB*.4*ES£AM 
IF  (OB  -LT.  .05)  DB=.05 

__  £ Aft =£B fc  A M * E B LAM— £ A*  t A 

EffS=(  EAR—  (EaNT^PHIRZ.  )3*2  )*«5  ~ 

IF  ( ErtS  .LT.  0.)  EHS=0. 

EHS=SORT(FHS) 

IF  (IPlC(l)'.Gl.  O')  Jl-IPlC(l)' 

IF  (ZPlC(l)  .£0.  O)  J1=I0B(I7)+I 
508  E=S0RT(DATAE(6» Jl )**2+DATAo(  »,Jl)**2-*-0,*.TAB(S, Jl)**2+ 

" * DATAffCl 1 , J 1 ) **2 f +SQRT C DAT AB ( 9 , Jl ) **2+DATAB ( 10,  Jl ) #* IT 
IE  ( F .LT.  tHS)  GO  TO  512 

510  + I _ _ 

IF  (Jl  . L£ . 106(18 ) ) GO  TO “508  “ ' — 

ICH0SE(3 )=— 1 

ICHOSE (4) =0 

RETURN 

512  J2=1PIC(2) 

_ If  IDBU3)  .AW.  ITER  .EG.  0)  IPIC(2)=0 

if  f 1 pic f 7 ) .10.  o)  j.=ibb7i2)+i 

IF  (ITER  .60.  0 .AND.  lPl(i<2)  .GT.  0)J2=J2+1 
_ J? 1:>  7 .3*2ND*ABS(LANT)/(0H£G0*SQR i ( bAR-2.*E*E ) ) 

IF  (DATA6  ( 6»  J2  ) -GE.  H)~GD  TO  520 
J2=J2+1 

IF  CJ2  .LE.  I DB ( 13 ) ) GO  TO  515 

IPiC(2)=0  “ " 

GU  TO  510 

520  ICHOSE (3 )=DATAb( 1, Jl ) 

ICHOSt ( 4)=0ATAB ( 1, J2 ) ■ ' ' " ' 

IPIC(1)=JI 
IPIC ( 2 ) =J2 

iPic(3)=o  " ' " ■ ~~  " “ “ 

HT-WI+NCH0SE(3)*DATA6(23,JI)+«CHOSE(4)*0ATAb(23,J2 ) 

_ ___  y0L=V0L+_NCHtJSE(3_t=fc0ATAb(24,Jl)+NCH0Sfc(4)*DATA&(24TJ2) 

PL=PL+NCHOS£  *(  3 ) *DA  TAb  1 16  , J 1 ) ♦NCHOSH  4)  *DAT  AB  (Tt , j2  ) ” 
PLMlfc=PLMlN+NCHDS£(3)*DATAb( 18 , Jl ) +NCH0S&( 4)*DATAB ( 18, J2 ) 
OX=.5*D*COS( ALPHA) 


00005050 
00005060 
00005070 
00005080' 
00005090 
00005100 
00005110 
00005120 
00005130 
00005140“ 
00005150 
00005160 
60005170 
00005180 
00005190 
00005200 
00005210 
00005220 
00005230 
00005240 
00005250 
“00005260” 
00005270 
00005280 
00005290 
00005300 
00005310 
00005320” 
00005330 
00005340 
00005350 
00005360 
00005370 
00005380 
00005390 
00005400 
00005410 " 
000054ZO 
00005430 


ISN  0514 
ISN  0515 
ISN  05X6 
'ISN  0517' 
ISN  0518 
ISN  0519 
ISN  "0520" 
ISN  0521 
ISN  0522 
ISN  0524 


ISN  0525 
? ISN  0526 
g ISN  0527 


FMAX=DB*.DATAB(6»  J2  > *SQRT  * X J/Z  jj /(DI*DX)‘ 

DZ=.5*D*S1N(aLPHA } 

DY=.5*D 

Fillet  DPH~i /57  « 3*r>  T + < 04*D  ) *FE/DY  ~ “ " 

F C 2 J = ( DPH^ /5 1 ,3*DT+.  04*D ) *FE/DZ 
. =2.«/57  .3*  . 04*0*DPHI*FE/DX 

FM  IN=AMA  X i ( F ( 1)  YF  ( 2 ) » F "( 3 ll  ‘ ' ' r 

■ FF=2.*FMIN  : 

.■IF  <FF  .LT.  FH1NJ  FF^FNjN 

TI  = ( F ( 1 ) + F{ ) +F  ( 3 ) 1 *D1  + “ - - 

* XNU*PDGT0/57  • 3*  ( XJ/DX+YJ/DY+ZJ/DZ )+ 

- _?  J*-7«g6*TPRIM*<FF*DI  i*»2»2»5*(0X/f(XJ*PHIRX)*nY/fyj»pF'?RV)  J 

* +XMD*TA  UX/DX-*  YMD*1  AUV/OY  ' 

FC  = I4 . 1E~9*FF*DX*L>I/  ( XJ*.h*PH1R  X ) 

- Return 


00005440 

00005450 

00005460 

00005470 

00005480 

00005490 

00005500 

00005510 

00005520_ 

00005530 

00005540 

.00005550 

1)0005560 

00005570 

00005^580 

00005590 


^OPTIONS. IN  EFFECT* 


. NAHE~  MAINtOP  T=01_t  LI  NECNT-41,  S I Z£=QOOOK, 


^OPTIONS  IN  EFFECT*  , SOURCfc  tEBCDIC, NOLIST  *-WutCK*LOAD»NOMAP,NOEDITt.lD,NOXREF 
*STATlSTiCS*  SOURCE  STATEMENTS  = 5>6  ,PROGRAM  SIZE  ~=  18234 

i 

*§l4lI-Sl?CS* _.._N0_  pi  AGNOSTICS  GENERATED 


******  t.N0  0f_  COMPILATION  ****** 


LEVEL  21.7  ( JAN  73  I 


OS/3bO  FORTRAN  H 


COMPILER  "OPTIONS'  - NAME=  ~ MAlN»0PT=01*LINECNT=4i , SIZE.=QbobK» 


ISIN  0002 
ISN  0003 
ISN  0004 
ISN  0005 


ISN  0006 


ISN  0007 


ISN  0008 
I'SN  0009 
ISN  0010 
ISN  ooii 

^ ISN  0012' 

i 

00 


ISN  001* 
ISN  0015 
ISN  0017 


ISN  0019 

T 

ISN  0020 


SOURCE,  EBCDJCtNOUST, NODECK, LOAD, NOMAP, NOEDIT. ID, NOXREF 


StfBROUTINE  STRUCT  (NCQNF  ) - 00005600 

\ DIMENSION  MC0NF(6i  ' ' ' ' " 00005616 

COMMON/USfc  Ry/CA,Cfc  00005620 

COMMON  /BTWN/  WT,VUL,OT,SATDAM,DX,  DY,DZ,X^YJ,2,l,ROf  FF,TI ,PL,PLMIN000G562I 
^,LMBrD,ARFA,SAtLb,SbARHf,NC,ACSWPtHAft*IHf ,THCMMT;CONVHT ,tNKWf,PASST000d5622' 
*,SATTWT ,TPRIM,161L0C,RA0A,RADAB,RA1 .HTRPWR ,PTRPRB,  00005623 

* HPT  fHTPIPF, VCHp ,HTPTf  FC.XNZERO.COMR T , ACSSN, BITRAT  f 2 ! » 00005624 

* £- OB L G » S A t-OLG » S A T WT  " " 00005625 

COMMON  /USFR6/i:UPF,Mei«'Sri,K:MLXL,tUHiYL,tQMl2L,UiM2XL,eOM2YL,  00005626 

_ * EQM2ZL,iSBQFG,NUHEEU,EEQWT<9)  .EtQVHW  , EMIYCg.EMIZCG .EH2YCG,  00005627 

' * FM2ZCG,CGEex(9),EEL0C(9),XeeSAl,XCGSA3  ” ' 00005628 

COMMON  /PRTCOM/ACCRC Y,CISTAR , 1REL*MM00L0 ,TRUNC , ITRUNC»DE , TE,  00005629 

* lpULR,QCR» SL 1R »PMR, PE.PU,  TOOLU.QCP, SEIP ,PMP»SATR ,SAT1NV,M£R , 00005630 

'*  MLlNV,PAYR,PAYINV,PAYUUL,GSL,XLT6T,CTbt,F££R,FEEINV,DDTE,XVEST»  00005631 

* OPS ♦ SKTAU( 6 } »RDLD(bO! »T»Ai\, TS  »BS»AM»TF»6F,TC,  TA»TB»  TQTOPS  00005632 

DATA  t,XNUf SIGY,P1/1.E7,. 33,3. E4, 3. 1416/  00-005648 

Tb=  0.  ~ ' ’ “ 00005649' 

XXNU=  1.  - XNU**2  OOQ0565O  . 

1CHFCK=  1 _ 00005660 

IF  ( l«vCbNF(5l.r(j.l.bR.NC(jNF(5).E0.3.0R.NCb&tF(5l  . £_Q . S >" . Al^O 0CCG567O 
*XCGSAl.EtJ.2 > ICHt  CK=  t 00005680 

C ICHFCK=  2 MEANS  THAT  SuLAR  ARRAYS  ARt_  PADDLES  AND  MOUNTED  AT  00005700 

C ~ CENTER  OF  VEHICLE • ICH£CK=  1 MEANS  OTHERWISE . ~ ' ' " 00005710 

b • ■ 00005720 

XL=  EOBLG  00005730 

iF(ICHECK.cw./l  XL=  «5#TQ6LG  "*  * 00005740 

IF ( NCONF ( 5 ) *Nt .1. AND ,NCONF ( 5 ) • N£ .3. AND .NCUNF ( 5 ) . IVE  . 3 ) GD  TO  1 00005750 

C , 0000  5760 

C SOLAR  ARRAYS  ARE  PADDLfcS  ' ~ U ''005770 ‘ 

C 00005780 

C.  APPLIED  LOAD  (ONLY  BESIOINg  FOMENT)  00006790 

c ~ ' 66oo=.b6o" 

C CUMHUT?  Wj-lbHT  PfcR  P ADCLn  (ASSUME  2 PADDLES!  00005810 

_Wf  = • i>*SOARWT  _ 00005820 

c 00005830 

XMA=  l.25*SAiHlL6*W£*S0i<T(CA*CA  + Cfc*CE)  00005840 

-c  ...  . . 00005850 


; " C NOMINAL  TUBE  RADIUS ' ~ 

C 

_JSN  0021  R.=  {SAB0LG**4*XMA/<Pl**5*F_n**.i428 

c . • " ' ■ - . — 

C TUBE  WALL  THICKNESS 

C 1 . _ ^ 

. I SN  0022  -•  TW'-'  2«*SQRT  (XMA/(PI#C  *R ) ) ‘ “ " ' 

C 

. c CHECK  FOR  APPLICABILITY  OF  EULER  COLUMN  STABILITY 

ISN  0023  4 FAC  1-  (PI^Efc^^XMA/I  8.*R*SA60LG**2 ) >**.3333 

. , ISM  0024  I F l S Ij£T-FACl. GE.JD  .)  GO  TO  I __ 

C EULER  COLUMN  STABILITY  NUT  APPLICABLE 

_ c ‘ ’ 

ISN  0026  TW=  '{i6.*SlGY*XMA/(PI*E**2)i^.33"33'-  ' 

ISN  0027  R=  TW*E/(4.*SIGY) 

C ’ ' • 

so.  C ‘SIZING 'OF  "EOUiPMfcNT  bAY  STRUCTURE  “ ~ 

^ C 

o_lSN  0028  1 CONTINUE  _ 

ISN  0029  P=  CA*SATWT 

■ _ c _ 

~~C  ' SENDING . MOMENT ' “ ' " • “ ' ' “ 

C • ’ ' 

C 

ISN  0030  ‘ ' XM=  .75*0 E*EO fcLG* SA T WT  ~ 

C 

ISN  0031  IJMICHECK.EQ.1)  XM=  C£*E.QbL&*SATWT' 

ISN  0033  ‘ IF'("NC0NF'<6)  .Nf  . D GO  Tlf  3 “ “ 

C 

C EQUIVALENT  AXIAL  LOAD 

C . . “ ' . ■ ■ 

ISN  0035  RR=  '.5*SAT0AW 

ISN  0036  XN-  P/ 12*#PI*RR ) + XK/ ( PI *RR*RR ) 

C ' . “ 

C.  SIZING  OF  EQUIVALENT  MONOCOQUF  CYLIMDtR 

C 


' 00005860 
00005870 
' 00005880 
00005890' 
00005900 
00005910 
“ 00  005920  ' 
• 00005930 
00005940 
00005950 
00005960 
_ 00005970 
00005980 
000059^0 
00006000 
: 000060 IO " 

00006020 
00006030 
00006040 
00006050 
00006060 
00006070 
00006080 
00006090 
~ 00006100 
oooobiio 
00006120 
00006130 
0000 6i40 
00006150 
00006160“ 
00006170 
6q006I80_ 
00006190 
00006200 
00006210 
‘ 00006220 
00006230 
00006240 


16  "6  f 


ISN  0037 

ism  0030_ 

I'SN  0039  ' 

ISN  0041 
ISN  0042 

* " " ’ C 

c 

c 

ISN  0043’ 


TM=  ,672*(XXNU*XN*XL*XL/E)** .3333 
FAC2-  XL**2*SQRT(XXNU)/(RR*TM> 

IF { FAC2« L£ i31 > GO  TO  2 

TM=  2.76*SQRT  < SQR  T ( XXNU) *XN*RR/£ > 

CONTINUE 

EQUIVALENT  THICKNESS  OF  STIFFENED  CYLINDER 
TBAR  = •267*fM  " * 


C 

C SIZING  OF  SKIN-STRINGER  ASSEMBLY 

C ‘ 


ISN  0044 
ISN  0045 
ISN  0046 
ISN  0047 
ISN  0040 
I SN  0049 
ISN  0050 
ISN_  0051^ 

C 

c 

c 

ISR"  0052 
ISN  0053 
ISN  0054 
ISN  0055 
ISN  0056 
ISN  0057 
ISN  0058 
ISN  0059 


T=  .44*1  BAR 
TS-  1.9*T 

BS=  .'64*TS*SQRT(  L-*TbAR/t  XXf<U*XN)  1 

B=  1.49*8S 

N~  1.  + 2.*P1*RR/B 

AN-  N ‘ 

8=  2«*PI*f-.R/AN 

AL_PH_A=  .7 4 5/ X X NU  **.  2 5_  

SIZING  OF  CYLINDER  FRAMES 
A=  E*ALl®HA»*2*TB  AR**2^XN 

RHOF=  ,0564*|RR**2/A)*(XN*ALPHA**2/IE*A> )**.25 
AJF=  .000785*XN*RR**4/(£*RH0F**2*A) 

BF=  'i'.46^*RH0F  ’ ~ ’ “ ~ 

T F=  AK/bF 
H=  _i.  + XL/A _ 

AM=  M “ ” ~ 

A=  XL/A H 


... C _ 

’ C 'SIZING  OF  ENf  COVERS" 

c 

ISN  0060  _ TC-  .352*SQRT (CA*SA1 NT/SIGY) 

ISN  0061  TA=“TC  

ISN  0062  XLD=  RR 

ISN  0063 GO  TO  4 


00006250 
00006260 
00006270 
00006280 
00006290 
00006300 
00006310 
00006320 
00006330 
00006340 
00006350 
00006360 
00006370 
00006380 
00006390 
' 00006400 
00006410 
00006420 
00006430 
00006440 
00C06450_ 
"00006460  " 
00006470 
00006480 
00006490 
00006500 
00006510 
00006520 
00006530 
00006540 
00006550 
00006560 
00006570 
00006580  " 
00006590 
00006600 
00006610 
00006620 
0G006u30 


9-92 


ISN  0064 

'■  C 

I SfST  0065 

C 

ISN  0067 

“C 

c 

c 

ISN  0068'  ” 

C 

c 

c 

ISN  0069 
ISN  0071 

C 

c 

c 

ISN  0073 

C 


ISN 

0074 

C 

ISN 

0075 

ISN 

0076 

ISN 

0077 

ISN 

0078 

ISN 

0079 

ISN 

0080 

ISN 

0081 

15N 

0082 

C 

C 

ISN 

0083 

c 

ISN 

0084 

ISN 

0085 

ISN 

0086 

ISN 

0087 

3 CONTINUE 

IFTmCONF  { 6KW . 2 ) RETURN  “ 
W-__>707*SATDAH 


equivalent  axial  load 
~XN=  »25^P/1S'+  «75*XH/H**2  ' " 

■ SIZING  OF  EQUIVALENT  HQSOCQQUE  BOX 


IF<XL/W.L&..-5)  TM=  1 . 068*( XXNU*XN#XL*XL/E) **.3333 
At CXl/H-GT. .5 ) TM-  ,672 * ( X XNU*XN*W*W/E ) **,3333 

EQUIVALENT  THICKNESS  OF  STIFFENED  BOX 


TBAR=  ,267*TM  

SIZING  OF  SKIH  STRINGER  ASSEMBLY 

T=  .44*TBAR 
TS-  1.9»T 

BS=  . 64*  T S+SORT  Ft  *TB  ARTLxX  NU  *XM  j) 
B-  1.49*BS 
N=  Kj*  W/E 

N=  "4*N  ~ 

AN=  H 
B=  W/AN 

ALPHA=  ,745/XXNU**.25 


00006640 

00006650 

00006660 

00006^70 

00006660 

00006690 

00006700. 

00006710 

00,006720 

00006730 

00006740 

00006750 

00006760 

00006770 

00006780 

00006790 

00006800 

00006810 


00006820 

00006830 

00006840 


00006850 

0CT00686O 

00006870 

00006880 

00006890 

00006900 

00006910 

00006920 

00006930 


00006940 


ST ZING  OF  FRAMES 


A-  e*ALPHA**2*T6AR**?/XN 

RHOF=  ,405*( W**2/A ) * ( XN* ALPHA**2/ ( E*A ) )**.25 
AF=  .041»XN*W+44/Te*‘RH6F*«24A)'  " 

BF-  j.464*RHCF 
TF=  AF/BF 


0000o950 

0000,6960 

00006970 

00006980 

00006990 

00007000" 

00007010 

00007020 


ISN  0088  H=  1.  ♦ XL/A  _ 00007030 

. ISN  0089  AM=  M • 00007040 

ISM  0090  A=_  XL/A«  00007050 

C “ ' 00007060 

C SIZING  OF  END  COVERS  _ 00007070 

C ± 00007080 

ISN  0091  TC=  .303*SQRT'(CA*SATWT/SIGY)  ’ " /"  * ~ ~ ~~  00007690 

ISN  0092  TA=  TC  00007100 

ISN  C093_  XL ,b*VI  ^ 00007110 

C * r ""  00007120“’ 

ISN  0094  A-  CONTINUE  00007130 

ISN  0095_  lF(ICHECK.fcQ.l)  GO  TO  9 00007140 

C * ""  ' ’ ' 00007150' 

C MID— SECTION  BULKHEAD  IS  REQUIRED  00007160 

!: C_  00007170 

ISN  0097  WL=  ,455*CA*SATWT/XlD^2  ’ " 00007180 

ISN  0098  TB=.859*XLD*SQRT(WL/SIGY|  00007190 

^ r_ 00007210 

ISN  0099  5 CONTINUE  ‘ ~ . 66607220” 

v ' C . 00007230 

f ISN  0100 , RETURN  « 00007240 

W iSN‘0101  END  r”  ~ ‘ 0C007250  ■ 

♦OPTIONS  IN  EFFFCT* NAME=  MAlN.qpT=01.LlNfcCNT-41«SIZE=000«;K,  - ^ 


♦OPTIONS  IN  EFFECT*  SOURCE .EBCDIC , NOLIST, NODECK , LOAD.MOMAP, NOEDIT, IO.NOXREF 


♦STATISTICS*  SOURCE  STATEMENTS  = ~ 100  .PROGRAM  SIZE  ="  ”'2800 


♦STATISTICS^  NO  DIAGNOSTICS  GENERATED 


♦♦♦♦**  END  OF  COMPILATION  **♦**♦ 


109K  BYTES  OF  CORE  NOT  USED 


LEVEL  21.7  ( JAN  73  ) 


DS/3-60  FORTRAN  H 


ISN  0002 
I$N  0003 

ISN  0004 


ISN  0005 
ISN  0006 


ISN  0007 


ISN  0008 
ISN  0004 
ISN  0010 


a ISN  0012 
o ISN  0013 

ISN  OOlT 
ISN  0016 
ISN  0017 


ISN-  0018 


* 


lit 


COMPILER  OPTIONS  - NAME  = MAIN,OPT=01 , L1NE^NT=4I  ,SIZF=00'66k^ 

SOURCE, EBCDIC, NOLI ST ,NODSCK, LOAD ,NUMAP ,NOEDI T, ID ,NQXR EE 
SU  BR  OUT!  N>-  VESI Z E ( I ERR  *NCOKF , 1C  HOSE) 

DIMENSION  NCOltF ( 6 ) tEES1l>(9)  , tfcVcOC 4)  , EEZCGi  9J , ELTNXTvT* tElwTv  j’i' 

* FEIN2(9)*£EXCG(9) 

. /U_SE  5.9/EQPjf  , MB  I 2SH  .JFQMlX  L , E QMI YL  ,£t>  Ml ZL  »EQM2XL » E OM 2 YL » 
F0M2ZL, ISBOPGtNUMC ’ C , £ C«WT ( 9) , £ t OVL I 9 f » En 1 YCgVfM i ZCt  »fcM 2YCG, 
EM2ZCG,CG£EX{9) *b  fLUC ( 9 ) , XCGSA1,XCGSA3 
COMMON  /US&RI/EQM1WT ,E QM2HT ,DIAMAX,ALT 

CGM1H2N  /B  f WN/ST1MWT  , SA  TVGL.  »DT  , SATO  AM  , DX  , OY  Z $AT  I NX  ,S  AT  I NY  , ■ 

SATINZ,R J,FF,T1,PL,PLMIN, LM8DD,S0AREA,SATLG,S0ARWT,NC,ACSHP, 
HARNWT,THCMWT,L(JNVriT  , TNKWT  , PASSTR  , SATTWT  ,TPRIM,ItiT  luC  , 

* R ADA  , R A DA  B , R AT  , HTRPWR  ,‘rtTP.  PR  6 ,HPT  , HTPI  PE  , VCHP,  HTPT*, 

* FC,XNZFRO,CUMRT,ACSSN,BITRAT(i I ,fcQBLG»SAfc OLG,SATWT 
ISHAPE  = NC0NF(6) 

ispin  s 6 " " ' — — - — 

RLD-.6I7 

IfliNCONF  (I)  .EO.l.OR.NCONFt  II  .EQ.2)  ISPIN  = 1 

IFCTyP  = r *•  

IHNCONf  (5).E0.1.UR.NC0NF(^).E0.3.0R.NC0NF«5).F,Q.-5) 
jrlt RHINE  EQUIPMENT  BAY  tQUiPMiNT  WEIGHT  AND  VOLUME 
EQWT=  1.025*{ stinWt+acswp ) ' 

EWVOL=  1.025*SATVOL 
THCMWT-EQWT-ST 1NWT-ACSWP 
THE  THERMAL  QJNTRuL  SUBSYSTEM  IS  “ 

NOT?  THAT  VOLUMES  ARt  IN  PT**j> 


OOOOOOIO 

00000026“ 

00000030 

00000040 

o6o66050 

00000060 

00000070 

00000080 

00000090 

oooooioq^ 

00000110 

00000120 

00000130 


IE0TYP=2 


C 

C 

c 

c 

c 


ACCOUNTED  FOR  BY  THE  1.025“ 


OOOG0140 

00000145 

00000150 

00000160 

00000170 

00000180 

00000190 

00000200 

00000210 


“ ISN  0019' 
ISN  0020 
ISN  0021 
' ISN"  0022  ‘ 
ISN  0023 
ISN  0026 


T 

C 

C 


"ACCOUNT"'  FOR  PACKING"  FACTOR 

EQIWQL-  1 728.  *fcQVQL*fc  Q PF 

DETERMINE  EQUIPMENT  BAY  LENGTH 

"I  CHOSE  *0  “ 

I F ( I S HAP  t— 2)1*2»3 

SaTDAM=  itiihVOL/i  .785*RLD)  )**.333 

' E 00  L G L D * S A T fc  AM 

IF l SATDAM.LE.D1AMAX)  GO  TO  4 
SATOaM-  U I AM AX 


factor 000 002 20 

- 00000230 
00,000240 


00000250 

00000260 

00000270 

00000280 

00000290 

00000300 

"00000310 

00000320 

00000330 

00000340 

00000350 

00000360 


TSNPOO  2 6 
ISN  0027 
ISN  0028 
ISN  0029 
ISN  0030 
ISN  0032 
ISN  0033 
ISN  0034 
ISN  0035 
ISN  0036 
ISN  0037 
ISN  0039 

ISN  0040 
.ISN  0041 


ISN  0042 


vO  ISN  0043" 
i ISN  0044 
w ISN  0045 
ISN  0047 
ISN  0048 
ISN  0049 
ISN  0051 
ISN  0032 
ISN  0053 
ISN "0054 
ISN  0056 
ISN  0057 
ISN  0058 
ISN  0039 
ISN  006 1_ 
ISN  0062 
ISN  0063  ' 
ISN  0064 


EQBLG=  EGBV0L/(„?85*SATDAH=**2).  ~ 

GO  TO  4 

2 BQ B LG=  1 2 . *£Q  B VO L) ** .333 

satdam=  coblg"  -----  - — ■ 

IF(SATDAM.LE.DIAHAX)  GO  To  4 
SATDAM=  OIAMAX 

EOBLG=  2.£EQBVOL/SATDAM*#2  ' 

GO  TO  4 

- 3 SATDAM=  (EQ8V0L/.524)**.333 

'eoblg=  sat  dam  * 

IFtSATDAM.LE.DIAMAX)  GO  TO  4 
lCriOSE=— 1 

C THAT  ISf  ’THIS  'IS  NOT  AN  ACCEPTABLE  MACRO  CONFIGURATION 

RETURN 
4 CONTINUE 

C ’ " ■“  ‘ ~ — 

C DETERMINE  SATFLLI TE  LENGTH 

C 

SATLG~=  EOBLG  + EQMIXL  ■»  EQM2XL  

C DETERMINE  SOLAR  ARRAY  DIMENSIONS 

C 

' IERRVo"  ■ " "*  - . 

SAAREA  = 144.*SCAREA 
IF<  I'tQTYP.EQ.2)  GO  TO  34 
2F<ISHA>E-2f  '51,52,53  ~ 

51  SA3XL=  SAAREA/SATDAM 

IF  ( SA3XL. LE.EQbLG)  GO  TO  55 

IERRsIERR+I  ' ' “ “ “ ' ' 

GO  TO  55 

52  SA3XL=  I.4l4ySAAR£ A/S AT DAM _ 

IFISA3XL. LE.EQBLG)' 60  TO  55  

I£RR=IERR+1 
GO  TO  55 

53  SA3XL—  SwRT ( 1 .273* SAARfcA ) 

IF ( SA3XL , LE« SATDAM ) GO  TO  53 

IERP=IERR+1 

" GO  TO  55  

54  SA1YL=  .005208*SAAREa 
SAIXL-  96. 


00000370 
00000380 
00000390 
00000400 ’ 
00000410 
00000420 
00000430 
00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
00000500 
00000510 
00000520 
00000530 
00000540 . 
00000550 
00000560 
00000570 
00000580 * 
00000590 
00000600 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
0000069° 
06000766"' 
00000710 
00000  720_ 
00000730 
00000740 
00000750 


ISN  0065  SA1ZL=  1-  """  ~ 00000760 

ISN  0066  $A2YL=  SAlYL  00000770 

0067 ; SA2XL=JSA1XL  _ 00000780 

ISN  0068  SA2ZL=  SA1ZL  ' ‘ 00000790' 

ISN  0069  55  CONTINUE  ' ■ - 00000800 

— 9. 1 _ 000008 10 

c DETERMINE  EQUIPMENT  BAY  STRUCTURAL  WEIGHT ~ 'r'000pO82O' 

‘ ‘ C 000 008 30 

99.1°. EOBSTR=  .^18*EQWT**.98h*(EuBL&/S/UDAM)**.2o3  00000840 

ISN  0071  ■ IP ( I EOT Y P .£  Q ^ 2 > L 06 S f R = .59*FQBSTR ~ 00000850" 

ISN  0073  EQbWT=  1.1*£QWT  + fFQBSTR  00000860 

—  9 ; . 00000870 

C DETERMINE  MISSION  EQUIPMENT  EAY  SfRUCTURAL  "WEIGHT  " 00000880" 


JSN  0074 
ISN  0076 
ISN  0077 
ISN  0078 
ISN  0079  ' 
ISN  0080 
'IS_N_0082_ 

ISN  0084 
ISN'_0085 
ISN  0086 
ISN  0087 
ISN  0088 
ISN  0089 ' 
ISN  0090 
ISN  009 L_ 
ISN  0092 
ISN  0093 
ISN  0094 
'ISN  0095 
ISN  0096 
ISN  0098 

ISN  0100 
ISN  0101 


IF  (M8l2SH.EQ.2~)  GO  TO  5 

EQM1S T = . 21 8*EQM1 WT** .986* ( EQM 1XL/S ATDAM ) **.263 
EQM2ST  = .2I8*EQM2WT** i986*(E0M2XL/SATDAM)**.263 
GO  TO  14 

“IFLAS=  1 1 ‘ " ' 

IF (EQM1YL .GT.* QM1XL)  1PLAG=  2 

Ifi < IPLAG.t Q. 1 . AND .fctMjZLiGT.EQMi XL! .Ok. (IFLAG.EQ 

► EQMIYin  TFL'AG=  3'  ~ 

IF(IFLAG-2>  6,7,8 
£MI_LNG=  EQM1XL 

'EM1D'IA=  'SORT (EQM IY'L**2  1+  EQM1ZL**2)  ' 

GO,  TO  9 

EMI LNG=  EQM1YL 

EMI DIA=  SQRTrfcQMLXL**2  + EQMrZL**2T'~ 

GO  TO  9 

EM1LNG=  LQM1ZL 

EM 1DI  A=~  SORT  T LQMIXL**2  +'EQMlYL**2) 


EQM1ZL**2) 


EM  1DI A=T  SORT  T LQMIXL**2  + EQMXYL**2} 

9 CONTINUE 

EQM1ST=  .218*1  QMlWT**.4B6*(fcMILNG/fcMlDlA)**.263 

rFLAG=  1 ' ••  — ■ — 

IFIEQH2YL.&T.FQM2XL)  IFLAG=  2 

IF ( ( IFLAG.tQ. 1 »AND.EQM2ZL.GT.FgM2XL) .OR. I I FLAG. EQ 

* E0M2YL ) ) I FLAG*  > ‘ " 

I F ( JFL AG— 2 ) 10,11,12 
10  £M2LNG=  LQM2XL 


00000890 

00000900 

00000910 

00000920 

1 00000930 

00000940 

00000950 

.2. AND. EQM1ZL.GT. 00000960 

00000970' 
. 00000980 

00000990 

00001000 
1 opooioio 
00001020 

' 00001030 

00001040 

1 00001050 

' 00001060 
00001070 
"0000 1080 
00001090 
660OIIOO 

.2. AND. EQM2ZL.GT.000011 10 

00001120 

00001130 

00001140 


ISN  0102 
ISN  0103 
ISN  0104 
iSN  0105 
ISN  0106 
ISN  0107 
ISN  OlOe 
ISN  0109 
ISN  OHO 

iSN  olii 


ISN  0112 
ISN  0113 


ISN  0114 
1SN  0116 
ISN  0H7 

vo"  isn  oiie 

i ISN  '0119 
ISN  0120 
ISN  0121 
ISN  0122 
rSN  0123 


ISN  0124 
ISN  0125 
ISN  0127 
ISN”  0128 
ISN  0129 


ISN  0130 


EM2DIA=  SQRTfFQM2YL**2  ♦ EQM2Zi.**2) 

GO  TO  13 

11  EM2LN6®  EQM2YL  , 

hM201A=  SQRT(fcwM^XL**2  + E0M2ZL**2) 

GO  TO  13 

12  EM2LNG=  EQM2ZL 

EM2D1A=  SQRT I PilMZ  XL**2  * FQM2YL**2  ) 
la  CONTINUE 

EQM2ST=  »218*FQM2WT**«  586* (tM2LNG/EM201 A J**«263 
X**  CONTI  NUt 
C 

C ACCu'UNT  FOR  MISSION  fcuUJPMINT  SUPPORTS 

C • ’ ‘ 

FQM1ST=  E0M1ST  + .1*EQM1WT 
EQM2ST=  EQM2ST  ♦ . i*E0M2WT 
C 

C DETERMINE  MISSION  EQUIPMENT  6 AY  TOTAL  VOLUME 

C ’ __ 

lF(MBi?SH.E0.'2)  GO  TO  ISO 

EQM1VL=,  .785*tryMlYL**2*EQMJXL 
E0.M2VL=  .785*C-QM2YL**2*FQM2XL 
GO  TO  151 

150  CONTINUE 

EWM1VL=  LUMlXL*tUMlYL*bwMIZL 
EQK2VL=  EQM2XL*EUM2YL*ttfM2ZL 

151  CONTINUE 

FOMVriL=  tQMIVL  ♦ E0M2VL 
C 

C DETERMINE  SA  A WT  f SA2nfT»  SA3WT 

C 

SA3WT  = SJARWT 
IF(TEQTYP.EU.l)  GO  TO  152 
SA1WT  = .5*S0ARWT 
SA2HT  - SA1WT 
1 CONTINUE 
C 

C DETERMINE  BOOM  AND  MECHANISM  HEIGHT 

C 

SAbOLG~  0. 


00001150 

00001160 

00001170 

00001180' 

00001190 

00001200 

00001210 

00001220 

00001230 

00001240 

00001250 

00001260 

00001270 

00001280 

00001290 

00001300 

00001310 

00001320 

00001330 

00001340 

00001350 

0000"i360 

00001370 

00001380 

00001390 

00001400 

OOOC141Q 

00001420 

00001430 

0000l440_ 

00001450 

00001460 

00001470 

•00001486 

00001490 

00001500 

00001510 

00001520 

00001530 


ISN  0131  SAB00M=  0.  

ISN  0132  SADRIV=  0. 

1SN  0133  IF  ( 1SPIN.E0.  i ) GO  TC  23 

1SK'0135 SAB0LG='24T . 

ISN  0136  SABOOM=  15.2 

ISN  0137  ’ IF  (1SBQFG.ECU0)  GO  TO  23 

ISN  ,0139  SADR1V==  .166*<SAlwT  + SA^W.T) 

ISN  0140  23  CONTINUE 

ISN  0141  __  SA&MWT=  SABOOM  + SA0R.IV 

C CALCULATE  HARNESS  AND  STRUCTURAL  TPS  WEIGHT 

r 


00001540 
00001550 
00001560 
00001570 
00001580 
00001590 
"00001600 
<00001610 
00001620 
00001630 
• 00001640 


ISN 

ISN 

ISN 

ISN 

ISN 

0155 . 

0157 

0158 

IF(IEQTYP.EQ*2)  GO  TO  233  . 

SOARWT=  SA3WT 
GO  TO  234 

00001930 

00001940 

00001950 

0159 

0160 

233 

234 
C 

SOARWT=  SA1WT  + SA2WT 
CONTINUE 

00001960 

00001970 

00001980 

ISN 

ISN 

ISN 

0161 
0162 
0163  - 

PASSTR=EQBWT+EQM1ST+EQM2ST+SABOOM+SADRIV+STTPS 

SUBWT1=  EQMWT  + EQM1ST  + EQH2ST  + SGARWT  + EEQTMT  + SABNWT 

SUBWT2=  SU8HT1  + EQWT  - ACSWP  + HARMWT  + STTPS  + EQBSTR 

00001990 

00002000 

00002010 

ISN 

ISN 

ISN 

’ "*S' 

0164 

0165 

0166 

COSrriN=  . 15$SUBWT2  • " " 

SUBWT==  SUBWT2  +■  C0NT1N 
DRyWT=  SUBWT 

00002020 

0C0C2030 

00002040 

C 

C 

C 

DETERMINE  SATELLITE  GROSS  WEIGHT 

00002050 

00002060 

00002070 

ISN 

0167 

SATWT  = DRYWT  + ACSWP 

00002080 

C 

00002090 

_ ___ 

C 

DETERMINE  ADAPTER  WEIGHT 

00002100 

C 

00002110 

ISN 

0168  . 

SATADP=  ,012*SATKT 

00002120 

C 

\ 

00002130 

sO 

C 

determine  satellite  launch  weight  

00002140 

sO 

C 

00002150 

'O  ISN 

0169 

SATTWT=  SATWT  ■*-  SATADP 

00002160 

'C,  • 

00002170 

t 

c 

CENTER  OF  GRAVITY  CALCULATIONS 

00002180 

r 

c 

00002190 

ISN 

0170 

E8XCG=  500.  + . 5*£QBLG  ' 

00002200 

ISN 

0171 

ebycg=  0 . 

00002210 

ISN 

0172 

£BZCG=  0. 

00002220 

M 

C' 

00002230 

c 

MISSION  EQUIPMENT  AND  MISSION  EQUIPMENT  BAY  STRUCTURE  C.G. 

00002240 

. c 

00002250 

ISN 

0173 

EM1XCG=  500.  ♦ EQBLG  ♦ .5*£0M1XL  

00002260 

ISN 

0174 

CK2XCG=  500.  - .5*EQM2XL 

00002270 

c 

- - ..  . 

00002280 

ISN  0175 


STRXCG=  500.  + .5*EQBLG 


000022 90 
00002300 
00002310 


.5*tSATDAM  + EES10UJ) 
~.5*<SATDAJ^  ♦ EESIDl Jt ) ) 
— . 5=M  SaTDAM  +'e'ES1DU)  > 
• 5* ( SATLVAM  + EESID(  I ) ) 


00002320 
00002330 
00002340 
00002350 
00002360 
000Q237O 
00002360 
.00002390 
00002400 
000024 i 6 
00002420 
0OQ02430 
00002440 
00002450 
00002Jr60^ 
00002470 
00002480 
„•  00002490 

• 00002500" 
00002510 
OOOQ2520_ 
00002530 
00002540 
00002550 
“ 00002560 
. . 00002570 
00002580 
. 00002590 
■ 00002600 
, 00002610 
00002620 
. . 0000.2630 
00002640 
• 00002656 
00002660 
00002670 
00002680" 
00002690 
,00002700 


ISN  0216 
ISN  0217 
ISN  0218 
ISN  021*> 
ISN  0220 
ISN  0221 
ISN  0222 
ISN  0223 
ISN  022**  ' 
1 SN  02l'S 
ISN  0226 
ISN  0227 
ISN  0228 


ISN  0229  ' 

ISN  0231 
ISN  0232 
'O  ISN  0233 
L ISN  02^4 
2 ISN  0235 
ISN  023t> 
ISN  0237 
ISN  023b 
ISN  0 2j9 


ISN  0240 
ISN  0241 
ISN  0242 
TSN  024? 
ISN  0448 
ISN  0246 
ISN  0247 
ISN  0248 


C 

C 

C 

c 

c 


c 

c 

c 


246  SAIXCG=  500.  4 • 5*EQBLG 
GO  TO  248 

247  SA 1XCG=  500* 

248  CONTI  Nllfc 
SA2XCG=  SAlXCi’ 

SAIYCG-  24.  + .5*1 SATDAM.  + SA1YL) 

SA2YCC=  -SA1YCG 
SA 1ZCG-  0. 

SA2ZCG=  O. 

sapxcg-  : aixCu 

SAP YCG=  O. 

SAbZCG=  O. 

249  CONTINUE 

SATELLITE  CENTER  OF  GRAVITY  CALCULATIONS 

first  DETERMINE  CONTRIBUTION  OF  SOlAR  ARRAYS 

IFtTf QTYP.E0.2)  GO  ' TO  250 
$AX=  3A3WT*SA*XCG 
SA Y=  SA2WT*SA3YCC 
Sa2-  SA3Wl*SAiZCG 
g(  rt  25i  1 

4 50  CONTINUE 

SAX-  SA1WT*SA  tXCG  ♦ $A2Wt*5A2XCG  ♦ SABMWT*SABXC£ 
SAY=  SAlWT*SAiYCt.  + SA2WT*SA2YCG  ♦ SABMWT*SABYCG 
SA7=  SA1WT*SA12C&  + SA2WT*SA2ZCC  ♦ SA BMWT*SAB2tG 
2 51  CONTINUE 

NEXT  DJTERMINi  CONTRIBUTION  OF  EXTERNAL  fOUIPM:N‘T 

EEX=0. 

EE Y=0. 

Et  4=0 . 

J c i NUML  EL.fw.CJ  GU  TO  ; 53 
OCl  1=1, NUML  _Q 

EEX=  EEX  + EF0WT(I)*EbXCGm 
FEY-  ItY  * t>  WWT(  l)*EEYCG(i) 

EEi=  EE2  ♦ £ bwWT ( I )*EEZCG( T ) 


~6o6'02710 
00002720 
00002730 
00002740 
00002750 
00002760 
60002770 
000027BD 
00002790 
00002800 
00002810' 
00002820 
00002830 
00002840 
00002850 
00002866“ 
00002870 
0QQ02’880_ 
00002890 
00002900 
00002910 
00002920 
0000^930 
00002940 
00002950 
00002960  ‘ 
00002970 
00002980 
00002990 
00003000 
00003010 
00003020 
00003030 
00003040 
00003050 
00003060 
00003070 
00003080 ’ 
00003090 


ISN  0249 
ISN  0250 

,TSN  0251 


■ -ISN  • 0252 


C 


c 


252  CONTINUE 

253  CONTINUE 


SATXCG=~ (fcQBStR+STRXCG  '•*-  EQWT*EbXCG 

1 (6QM25T  * £QM2WT)*EM2XCG  + SAX  + 

2 (HARNWT  + STTPS)*EBXCG)/(SATWT  - COMTINJ 


f EQM1ST  + 


EQM1WT  }*fcMlXCG 
EEX  ♦ 


SATYuta-  ( EQbSTR^S ) kY  CG  + EQWl*fcBYCG  + (EQM1ST  ♦ l QM1WT  )*EM1YCG 

1 ( EQM2ST  + COMLkT ) *F  M2YCG  + SAY  + tEY  + 

2 (HARNWT  + ST  TPS )*EP YCG j/{ SATW?  - COMTIN)  ~ 


vO 

I 

o 

N. 


ISN  025a 


ISN  0259 
TSN  0255  ~ 
ISN  0256 
ISN  025? 
ISN  0256 
ISN  0259 
ISN  0260 
ISN  0261 
ISN  0262 
ISN  0263 
ISN  0269 
ISN  0265 
ISN  0266 
ISN  026? 
ISN  0266 
>ISN  0269 
fSN  0270"  “ 
IS**  0271 
ISN  0272 


SAT2CG=  ‘ (t  WBSTk^STRZCt  * tCr'T+ESZCG  s {CQMIST  » 

1 (i-QM2$T  + EQM2WT  )*EM2ZCG  + SAZ  + ‘ ’ 

2 (HARNWT  + STTpS)*LB2C6  )/(SATwT  - CCINT1N) 

CALCULATE  MOMENTS  OF  INERT 1 A 


EGMlWTKEHiZCG 
EE2  ♦ 


FIRST  DETERMINE  EQUIPMENT  BaY  STRUCTURE  AND  EQUIPMENT  BAY 
EQUIPMENT  lNCRfMENf AL~  1UEPT1A  “ 


'S  A T R A r = i6*SAinAM 
fF(ISHAP£  - 2)66,61,06 
06  STR  1NX=  FQ6STR*SATRAb:**2 

STRIPY-  *5*t QBSTk* (SATftAo**2  + .167*uQ8LG**2> 

SfpI«Z=  STRINY'  ’ : " |.  ‘ ' - 

£Q!NX=  .5*tQWT*SATRAU**<r 

lwiNY=-  . Op33=o.  UWT*D.*sa1RAP**2‘  , F„iijLG**<) 
EQ1NZ=  EQ1NY 
■ . GO; TO  69 

67  EQRSID-  .70a*SATD_AM 

STRINX=  . 333*t  UBSTR*t'QBS I b»*2 

• 'STPI*jY=  .C633*f-UbSTR:<‘(.1;..*EL0Sl0*‘*Z  + EvGLC**2) 
ST  R i NZ  = STRInY 

• fcGINX=- . 1^7*tQWT*tQBSIC**^ 

EQ INy=  .0633*tQWT*UQ6SIP**<i  ♦ FQ6LG*#2) 

EQINZ=  tQJNY  ' ' ■ " ■ • 

GP-lu  69 

oL  SI R 3NX=  .iol*! t£<TK*iATPAM*+2 
STR1NY=  STPif^x 


"00003100 
00003110 
00003120 
+ 00003130 

00003140 
. 00003150 

0000^160 
+.  00003170 
00003180 
- 00003190 

. 00003200 
♦.  00003210 
00003220 
00003230 
.00003240 
, •.  P0003250 
...  00003260 
00003270 
QQ 00 32 80 
. ■ 00003290 
..  ,00003300 
00003310 
•000.03320 
00003330 
' • 00003340“ 
00063350 
00003360 
- 00003370 
00003380 
00003390 
auo"034od‘ 
. 00003410 
' 00003420 
00003430 
*.  0000.3440 
00003450 
'0000.3460 
00003470 
'.0.0003480 


ISN  0273  ~ 

- ISN  0274 
r$M  0275 
Is'N  0274 
ISN  0277 
ISN  0278 

C 

C 

c 

ISN  0280 
ISN  0281 
X S N 0282  _ 

ISN  0283 
ISN  0284 
ISN  0285_ 

" C 

c 

c 

ISN  0286 
ISN  0288 
. ISN  0289 
•f  ISN'02’90' 

^ ISN  0291 
S ISN  0292 
ISN  0293 
ISN  0294 
ISN  0295_ 

ISN  0296 
ISN  0297 
TSN  0298 

C 

C 

c 

ISN  0299 
ISN  0301 
ISN  0302 
ISN  0303 
ISN  0304 
ISN  0305 


STRTNZ=  STRINX 
EQINX=  ,1*E0WT*SATDAM**2 
RQ INY  = fcOINX 
FO IN 2=  F01NX 


t>9  CONTINUE 

IF  (NUMtfcQ  .£«.  0)  GO  TO  7x 


EXTERNAL  EQUIPMENT  INCREMENTAL  INERTIA  (bDX  SHAPE) 


00  70  1=1 tNUMFFQ 

FF1NXC1 )=  .lt>7*FEQWTIl  )*FfcSiU(  i 1**2 
fc§  I NY  (J  ) = tfclNXU) 

EEINZ(I)=  EE I NX (1 1 

70  CONTINUE 

71  CDNTTfiUE 


SOLAR  ARRAY  INERTIAL  CALCULATIONS 


IFCIEQTYP.e"Q.2)  GO  TO  37 
SA3INX=  SA3WT*SATkA0**2 
SA31NY=  „5*5A3_WT*(SATRAD**t  + 
SA3IN2=  SA3INY' 

Gff  TO  3fc 

j>7  SAX  iNX=  .0833*SA1WJ*CSA1YL**2 
SA1INY=  .6833»SAIWT*(SAiXL^*2 
SAUN2=  .08iJ*SALWT*  (SA1XL**2 
SA2TNX=  .0833*SAZWT*(SA2YL**2 
SA2 1NY=  . 08  33* S A 2 HT  * ( $ A2XL** 2 
SA21N2=  ,0833#SA2WT*<SA2XL**2 

38  CONTINUE 


• 167*  S A3X  L**2) 


♦ SA1ZL**2) 
+ SA12L**2) 
+ SAIYL**2) 
+ SA2ZL**2> 
+ SA22L**2“| 
+ SA2YL**2) 


MISSION  EQUIPMENT  BAY  INCREMENTAL  INERTIA 

IF ( MB12SH .cy .2)  GO  TO  39 

£MIINX=  • t UMIS1  + EQMlrfT)  * SATRAD**2 

EM11NY=  .0633*(£UM1SI  ♦ EWM1WT ) *< 3*S ATRAC**2  + EQM1XL**2) 
EMI 1NZ=  EM1INY 

EM*1NX=  .9*(EuM2ST  + EQM2W1  l*SATRAD**2 

EM2INY=  .0833*(E0H2S1  * EQM2WT )*(3*SATRAD**2  ♦ £QM2XL*#2 I 


00003490 

00003500 

00003510 

00003520 

00003530 

00003535 

00003540 

00003550 

00003560 

06003576 

00003580 

00003590 

0000360C 

00003610 

00003615 

00003620 

00003630 

00003640 

dbb03650‘ 

00003660 

00003670 

00003680 

00003690 ' 

00003700 

00003710 

00003720 

00063730 

066b'3740 

00003750 

00003760 

00003770 

00003780 

00003790 

00003800" 

00003810 

00003820 

0001.3830 

000' Q3 8 40 

00003850 


ISN  0328 


1SN  0329 

C 

C 

C 

1SN  0330 


EM2IN2-  EM?  I NY  

GO  Tp  40 

^9  Tir^i=  .0B33* < If  UM1ST  + EQM1WT) 

TfcM2-  i,0B33*( EQM/ST  + ffQMZWT > 

EMIT  NX=  Tl-Ml*  ( /0M1YL**2  + FQM1ZL**Z  ) 

• t M j INY=  Tf  Hi*  ( £ijMI2L**2  + E0M1Xl**2  ) 

T L'  M 1 * < £ CM 1 YL**  2 * ' £ LMjXL**?  ) 

• Tf-M/iti^MSYL**/  + cC'M2ZL**2) 
'EM215yY=  TF.K2  *IfUM2ZL**  2 + FQM<.'XL**2) 
EM21NZ=  T£H2*(F0M/Yl**2  + £ QM<.  XL**2  ) ' 

40  continue 


cUM1lT0=  t OMiWT  +/FQM1ST 
€(JM2T0=  tQM2WT  + rW«2Sl 


SATELLITE  TOTAL  INERTIA  CALCULATIONS 
FIRST  DETERMINE  CONTRIBUTION  Of  SOLAR  ARRAYS 


IF  ( fECTYP.j.C.2  ) Gu  TO  41 
SAIX-  SA31NX  + SA3tfT*<  t ^ AT  YCfc.-S A3YCG ) **2 
SAIY=  SaSxNY  ♦ SA3wf*<  (SATZCt,-SA^ZCCT*«2 
SA1Z=  5A3INZ  + SA3WT*< ( SaTYLG-SASYCG ) **? 
GO  TO  42 
aT  C’TNT  TNIJfc 


♦ JjSAT2Cb-.iA2ZtG)**2) 

♦ ( SAT  XCG— SA3XCG ) **Z ) 

♦ ( SAT  XCG— SA3XCG ) **2 1 


, c + S*'lWT*t(SATyC  G— SA1 YCG ) **2  + I SAT2CG-SA1ZCG)**! ) 

1 SA.INX  + Sa2wT*uSATy(.C-.na;?YC&)**2  ♦ ( SATZCG-SA2ZCG  )**c  ) 

2 + SABMWT*(  t SATYCC— SAfc,YCG) **2  ♦ ( SAT?C»>~SA&'ZCG  )**2  ) 

/c^;MvAI1NY.VA1M<3it<,SATZCG“SAI^^+2  + I SATXCG— SAlXCG  ) **2  ) 

1 SA^INY_+  iA^WT*USATZCG-SA?ZCG>**2  + ( SATXCb-$A2XCG  )**2  ) 

2 + SABHHT*((SATZCb-SAL2CU**Z*  + < SaTXCo-SAB'XCG7**2 ) ‘ 

J „ ^Al  1!4Z  + SAlwl*<  <SATYCG-SAIYCi>)**z  + ( SA  1 XCG-S  A IXCG  i **Z  ) 
i SA2INZ  + SAZwT-M  ( SATYCG-SA2YCG  )**2  + ( SAT  XC&-SA^XC&  ) **Z  ) 

? * SABMwT* ( ( SATYCG— SF B'YCG) **2  + ( SATXCb-SAB XCG 1**2 ) 

*+<:  uGrcT  INUt 


NEXT  OH  ERMINE  CONTRIBUTION  Of  ;XTLpAAL  EQUIPMENT 

1 1 1 X=  0. 


00003860 
00003870 
, 00003880 

00003890 
00003900 
00003910 
0^003920 
.00003930 
00003940 
00003930 
00003960 
00003970 
00003980" 
• 00003990 
O0OO4GOO_ 
0000 40 IQ 
. 00004020 
00004030 
00004040 
0000*t030 
U00040O0 
00004070 
00004080 
00004090 
' 00004100 
+ 00004110 

00004120 
0000*«-130 
■»  000Q4140 

00004130 
00004160““ 
+ 0,0004170 

00004180 
‘ 00004190' 
00004200 
00004210 
00004/ _ 0 
OOOOa-230 
00004/40 


ISN  0331 
ISN  0332 
ISN  0333 
ISN  033 i. 
ISN  0336 

ISN  0337 

ISN  0336 

ISN  033V 
ISN  03V0 

ISN  03 vl 


ISN  0342 


sO 

I 

4—" 

° ISN  03^3 


ISN  03 
ISN '034b 
2SN  03-ifc 
ISN  0347 
ISN  0348 
ISN  0349 
ISN  0350 


EEIZ  = 0. 

IFfNUttfcEQ.EQ.O)  GO  10  69 

DO  *♦?  T=l,NUMltO  - ' 

EfcTX=  EEIX  + Er  I NX  ( I ) + EEywT(i)*US.ATYCG-tEYC6(in**2  ♦ 

* < SAT2CG— E fcZCM  1 1 )*+?  ) 

FEIY=  FE1Y  * FfJNYU)  + EfOWTO  »*l  ( SATZCG-EEZCGC I > )**Z  * 

* ( SA7  XCG— EhXCG (III **  > ) 

EEIZ=  S-EIZ  + t-IN2(Il  + EEQWTU  l*T  C SATYCG-£EYCG( I ) )**2  ♦ 

* (SATXCG-tlXf G(I»)**2 ) 

4 3 CONTINUE. 

«4  COriTINUE 

SATiNX=  STR1NX  + £QbSTk*(  f,i>ATYC&-STRYtG)**2  + (SAT2CG-STRZCG  1**2 ) 
J-.-t.MyllNX  + fc«MlI0*HSATYCG-trtlYCG***2  + ^SATZCGHEMLZCG1**2) 

2 + FM21NX  4 tOM2TO*l  I SAFYCu— EM2YCG)**2  + ( S A f ZCG-EM2TCgT**2 )' ' 

3 + IWINX  + tyWT*(SATYCG**2  + SATZCG**2J  + SAIX  + EE1X 


00004250 

00004260 

00004270 

00004280 

00004290 

00004300 

00004316 

00004320 

00004330 

00004346 

OOOGV350 

00004360 

00004370 

00004380 

00004390 

00004406 

00004410 


— , _____  UVU/U*r*t4U 

SATINY-  STRiNY  + EwBSTR* ( ( SATZCG— STRZCG)**2  + (SATXCG-STRXCG]**2)  66664430 

1 + EK1INY  4 fc  C;M1  TO*  ( ( SATZCb— fcMiZUG  1**2  * ( SATXCG-:EMIXC&)**2>  00004440 

2 + U-GaNY  + fcOM«.TO*USAlZC6-f  M2ZCGi**2  + ( SATXCG-EM2XCG I #*2 ) 00004450 

3 4 i-O  I NY  + 5 QWT*(SATZCG*^2  4 ( SATXCG-S1 R XCGl*Vi  ) + SA1Y  + EEIY  00004460 


SATlwZf  _ STRT..Z  + EwLSTR*  ( ( SA TYCo-S TRYCG^**!  * l£ATXCG-STRXCG)**2)  00004460 
I + tMUNZ  + tCMITUM  (SAI YCG-LM1YCG)**2  + CSATXCGHEM1XCG»**2)  " 60004490 
- + F M2 IN 2 + EGM2T0*(<SATYCG-bM2YCGJ**2  ♦ (SATXCG-EM2XCG)**2)  00004500 
? + E01NZ  4 tVWT*  ( SAT  YCG**2  + I SATXCG~STRXCG>**2  ) + SAIZ  4 EfclZ  00004510 


COWPUO  DISTANCE  FROM  L.L.  TO  main  ENGINE(DT),  GAS  JET  LEVER  ARMS  00004530 
Pfi.R9Lt»  p 1 Ei»_ATN0  yaw  AXES,  RESPECTIVELY,  (r»X,0Y,0Z).  THE  00004540 
CONVERSION  TO  UNITS  OF  FT  IS  DONE  W SUBROUTINE  SANDC 60004556 


IF  T i.SHAPL-2  t ‘♦2,46,46 
DT  = SATXCG  - -A)0. 

DX-  .5*6 Ob LG 

DY=  nx 

DZ-  .5*SATDAM 
GO  TO  47 

46  DT=-  SATXCG  - buO. 


00004560 

00004570 

00004360 

00004590 

OOOOV6OO 

00004610 

00004620 

00004630 


ORIGINAL  PAGE  B 


ISN  0351 
ISN  0352 
ISN  0353 
ISN  0354 
ISN  0355 
ISN  0356 
ISN  0357 
; ISN  0358 
ISN  0359 
ISN  0360 
ISN  0361 


0X=' ,5*SAT0AM' 
DY=  DX 
02  =DX 
' GO  TO  4 1 
48  DT=.5*FQBLG  ' 
DX=.5*e0bSID 
Dy=T?T  ’ 
oz=m 

47  R J =S A T I N X 
RETURN 
FNL> 


*'ll,S  IN  F"CC'*  ;HAl1.,0Pt.01,LXNfC«f„1,SUF  = 006.rK. 

TIL.NS  IN  tPFECT*  SUURCL,  EBCDIC  iNOL  J ST,  NODt CK , LUAD,NOMAP,NOEDIT, ID.NOXREF 

STATISTICS*  SOURCE  STATEMENTS  = 360  , PROGRAM  SIZE  = 6982 

♦STATISTICS*  NO  DIAGNOSTICS  GJNIrat^ 


00004640 
00004650 
0000465S 
00004660 
00004661 
' 00004662 
00004663 
00004664 
00004680 
00004690 
00004700 


**~*”s‘v  tNL»  CF  COMPILATION  ******* 

s£> 

I 


65K  bYTI.S  UF  CURE  NOT  USED 


O 

o 


-107 


LEVEL  21.7  < JAN  73  ) 


0 S/360  FORTRAN  H 


COMPILER  OPTIONS  ~ NAME=~  MAI  N»OP  T =OX  * LINE  CNT =41 T SIZlE=0O'00Kf 

SOUR  CL  ,£ECDIC  »NqU  ST,  NODfcCK,  LOAD,  NOMAP,  fcObDIT  , It>  ,NDXRtF 

ISN  ooo^  subroutine  ep  u pic,  ierl,itlr, nconf, ichose^chose)  00004710 

C **********##**:(<:*-•*  ****«:$#  **  4 **  **  *****:#$  $#*$*$$$ 

C * SUBWC-UT1N*-  FP  — — *00004730 

L * WILL  StLtOl  AND  Sl/t  I He  ELiCIRlCAL  SUBSYSTEM  WHICH  WILL  bE  *00004740 

C * THd  St  CONFIGURATIONS  AS  rOLLLiwS  - - *00004750 


c 

* 

NLONF 

(1) 

i 

IS 

DUAL  SPIN 

*00004760 

c 

* 

NCONF 

(1) 

St 

4. 

IS 

YAW  SPIN 

*00004770 

L 

* 

NC  (jf*F 

(1) 

- 

f s 

MASS  EXPULSION 

*00004780 

L 

* 

'■LONE 

(1) 

= 

«* 

IS 

MASS  rXPULSlC’N(MJMLNTUM  BIAi) 

*00004790 

A 

NCONF 

<1  ) 

55 

is 

FITCH  HCJMcNTuM  di>S 

0v)004b00 

c 

* 

NCONF 

(5) 

= 

1 

IS 

SHUNT  - 

PAODLL 

*00004810 

L 

* 

NCONfE 

(3) 

s; 

2 

IS 

SHUNT  - 

buoy 

*00004620 

C 

♦ 

NCONF 

it) 

- 

3 

IS 

S •*•  D — 

PADDLE 

*00004830 

c 

NCONF 

(3) 

- 

*+ 

IS 

S + D - 

BODY 

*00004840 

c 

* 

NCUNF 

(5) 

- 

t 

IS 

SERIES 

paddll 

*00004850 

c 

* 

NCONF 

(3) 

— 

6, 

IS 

SFPIES 

BODY 

*00004860 

C 

* 

NCONF 

(6j 

=r 

1 

IS 

CYLINDER 

' 

*00004870 

c 

* 

NCONF 

(6) 

- 

2 

IS 

BOX 

*00004880 

c 

NCONF 

(to) 

=■ 

- 

IS 

SPHERE 

*00004890 

C ********* *****^*v  ¥**¥********¥********** ********  *.**:» *************#****0OOG49G~6 

c ***«•****•■  **  **¥■,****#***•***.  M*4  * tf****************^******###*,^^^^^^^^ 


C * 

A LIST  OF 

Irit  VARlAbLtS 

follows  

*00004920 

C * 

*00004930' 

c * 

vapj  ac,l: 

HlfW  OSlD 

FROM 

fu 

DlEAULI  0£  SCRIPT10N*00004940 

c * 

*00004950 

c * 

A 

I NT  ' 

cP 

E P 

E7  HE  * H“  ‘ *00004960  * 

c * 

Al 

INI 

IPS 

EPS 

FT**2  ARRAY  ARfcA*00004970 

c * 

A3? 

INT 

LP 

EP 

A** (3/2)  *00004980 

c * • 

ALT 

I,  I NT 

USER 

fcPR 

MI  ALTITUDE  *00004990 

c * 

ARf  A 

0 

F.PS 

VES1ZE 

PT**2  ARRAY  AREA*00005£)00 

c * 

CA 

INI 

i-PS 

EPS 

A-H  MIN  RED  CP*00005010 

c * 

C APMAX 

1 47 

DB 

t PE 

A-H  KIN  REQ  CP*00005020 

c * 

CCtLL 

1NT 

On 

IPS 

A-H  CAP  SEL  CL*00005030 

c * 

( hhini 

INI 

« PS 

EPS 

2.0  HRS  MIN  CHG  TM*0000^.04C 

c * 

Cl 

1NT 

i-PS 

EPS 

A-HMTN  INSI  CP*00005050 

c * 

Cl  STAR 

1NT 

EPS 

FPS 

A-HCAP  StL  CEL *0000 5060 

c * 

CR 

1NT 

FPS 

EPS 

W-HMIN  RE Q CAP* 0000 5070 

'-108 


c *' 

’’oatab' 

I *1NT,0 

MAIN 

c * 

oelf 

1 NT 

EPS 

c * 

DELI 

INI 

. EPS 

c * 

- ' • DFLM 

■ INT 

EPS 

c * 

HFLR 

INT 

- EPS 

c * 

’ DECT 

. INT 

EPS 

t * 

• K f A C 

INT 

- L'L 

c * 

- FT  AD 

INT 

D8 

c * 

F TAl 

INT 

• DB 

c * 

£ TAI 

INT 

EPS 

c * 

ETALR 

INT 

DB 

c * 

TAR 

INT 

. . i PR 

c * 

FS 

.INT 

EPS 

c * 

FW 

INT 

tPs 

c * 

HE 

INT 

LP 

c * 

HEUA 

IWT 

EP 

c * 

. HP 

INT 

EP 

t * 

I 

..  INT  v 

LP 

c *' 

I ecu 

'INT 

EPR 

c * 

. JCf LL 

•INT  , 

EPS 

c * 

ICf  LLE 

- INT 

1 PS 

c * 

ICH 

INT 

tPR 

c * 

ICHGR 

I, NT 

EPR  ■ 

L * 

ICHGPi 

INT 

EPS 

c * 

ICH0S5 

ij  • 

tpR,eps 

c * 

rcuNF 

INT 

E P r. , t P ' 

c * 

IDF 

1 . 

MAIN 

C'  * 

TOR  . 

INT 

EPR 

0 * 

I ORE 

INT 

EPR 

C'  * 

I ERR 

0 

■ EPR 

c * 

I LR 

‘ INT 

LPR 

c * 

lLRfc 

INT 

'-PP 

c * 

7 PCU 

INT 

tPP 

c * 

rpeut 

INT 

LPR 

c * 

4 PD 

IM 

EPR 

c.  * 

IPOE 

IWT 

EPF 

c * 

. IPIL 

. i »0 

EPR, t PS 

c * 

I SPD 

INT 

LPR 

C *' 

iSPDE 

iNT 

f-PK  . 

fcPR»EPS 

EPS 
*PS 
••EPS 
’•  • EPS 

■ EPS 
4PK 

*.  fcPRtEPS 
-.EPS, EPS 
EPS 
£Pft 

- rp®tEps 

• EPS  • 

EPS 
EP 
£P  . 

EP 

EP 

• f PR 
EPS 
EPS 
LPR 

' EPS 
EPS 

■ MAIN 
EPR  » F PS 
tPR, EPS 
EPR 

EPR 
MAIN 
EPR 
. err 

trPk 

EPR 

CPR 

• EPR  • ■ 
main 

tpR 

EPS 


DATA 

BASE 

*'000650'80 

.03 

XMIS 

LOSS 

*00005090 

.0* 

■fab 

LOSS 

*bt)doSiioo 

.01 

Ml  SC 

LOSS 

*£>0005110 

.05  Ok  1 «b ‘RAD  .DfcG  FAC*00006120 
TABLE  TFMP'.COJRR. ' *0000.5130 

EFF  CHGK  ’ *00005140 
0.8*>  • ’ LFF  DISCH  *00005150 

F EE  8ATT' ' *00005160 

0.105  SOLAR  CL  £F*G0OQ5170 

O.VO  EFF  LD  REG  *00005X80 

1.0  Pv/R  DIST  LS*pCqb5190 

“ SIZE  FACT.  *00005200 

~ • WT  FACTOR  *000 05210 

20.902E6FT  RAO  LARTH  *6o6o5420 
HE/A  ' *00005230 

FT  PERIGEE  *00005240 
INT  INDEX  *00005^50 
'■  ' LCD  INDEX  *00005260 
COL  INDX  CL*0000'5270 
FnO  CELLS  *00005280 
AMP  CHG  CURR  ;*0QQ05290 
COL  INDX  CH*0'0.005300 
END  CHGRS  *00005310 
HDKP  ID  " *00005320 
VAR  ON  CDNF*00005330 
LAST  HDWR  *000053,40 
COL  INDX.  i»R *00004350 
END  DISCh  ’ *0000 3360 
ERROR  FLO  *0000,5370 
' COL  INDX  LK*00005M86 
END  LR  *0000>390 

PCU  INOLX  " *00005400 
END  PCU  *0000,5410 
PD  INDEX  *00005420 
t.NO 'PD'  ' *00005430 
Hr-WR  INDtX  *0C  003440 
SPD  INDEX  *00006450 
' END  SPD  *00005460 


ISRI 

INT 

isrie 

INT 

ISR2 

INT 

ISR2E 

INT 

Kl 

INT 

K2 

INT 

LMBDD 

INT  ,0 

LMBDG 

INT 

LMBDP 

INT 

MU 

INT 

N 

INT 

NB 

INT 

NC 

INT 

NCCU 

INT 

NCH 

• INT 

NCHOSE 

NCONF(l) 

NCONF ( 5 ) 

NC0MFC6) 

NO 

NLR 


NPCU 
MPD 
NSPD  .. 


NSR. 

UPTtMP 

PBOL 

PD 

PEXCES 

PIE 


PL 

PLMIN 

PLR 


0 

I,tPS,0 

i.ep  »a 

I,EPS,0 

INT 

INT 


EPR 

EPR 

EPR 

EPS 

EPS 

EPR 

EPS 

EPS 

EP 

EP 

EPS  ’ 


EPS 

EPR 

EPS 

EPR, EPS 

MAIN 

MAIN 


USER 

EPR 

EPR 

EPR 

EPS 

ALL  s/s 
ALL  S/S 
EPR_ 

'tPR 

EPR 

EPS_ 

EP 

EPS 

EPS 


EPR 
EPR 
EPR  _ 

EPR 

EPS 

EPS 

EPR,REL“ 

EPS 

EPS 

EP 

EP 

EPS 


EPS 

EPR 

EPS 

MAIN" 

EPS, MAIN 
EP  ,KAIN 


EPS, MAIN 

EPR 

EPR 


EP 

EPR, EPS 
EPR 

EPR , EPS 
EPS 


EPR 

EPR 

EPR 

THERMAL' 

epr.eps 

EPS 

EP 

EPS 

EPR 


SRI  INDEX  *000054-70 
END  SRI  *00005480 
SR2  INDEX  *00005490 
' " FND~SR2“  *00005500 
1.02  BATT  PKG  F *00005510 

1.4  _ BAT  ST  WT  F*00005S20 

0.3  AV  DP  DISCH*0G005530 

OR INT  FACT  *00005540 
_0.9__  SLR  PKG  FAC*00005550 

1.408E 16  CONSTANT  * *00005560" 
EARTH  RATE  *00005570 
2 NO  BATT  *00005580 


NO  SLR  CtLL*00005590 
NO. CCU  *00005600 

2 NO  CHGRS  *00005610 

"NO.  EQUIP.  *00005620" 
SANDC  MACR 0*000 056 30 
EP  MACRO  *00005640 


VSI2E  MACRO* 00005650 
NO  DISCH  RG*00005660 
MO  LD  REG  *00005670 


NO.PCU  *08005680 
NO.  PD  *00005690 
NO.  SPD  . *00005700 


NO  SHNT  REG*00Q 05710 
15.  DEG.  C BAT  TEMP.  *00005720 
WATTPWR  B.Q.L.  *00005730 
WA'TTBAT  PWR-RE&*00005740 
WATTPWp  2B  D ISP* 00005750 
3.14159  CONSTANT  *00005760 


WATT  AV  PWR  LO  *00005770 
WATT  MIN  PWR  LD  *00005780 
WATTTpX  PWR  LR £*00005790 
WATTPWR  DISP . LR*00005800 
WAlTEOL  SOL  0UT*QOOO5blO 
__  TEMP_DEG  FC*00005820 
USED  IN  CALC  bF~TE  '*00005830' 
1353  W/M2AV  SOL  INT  *00005840 
ECPS  TIME  *00005850 


rsivf  0003" 
ISN  0004 


X) 

I 


ISN  0005' 


ISN  0006 
ISN  0007 
ISN  06W 
ISN  0009 

isn  ooio 


C * 

c * 
c * 

■ TEDTS 
VB 
V6M 

INT 

INT 

INT 

EPS 

EPS 

EPR 

c * 

VBT 

INT 

EPS1 

c * 

VC 

IMT  ■ • 

EPS 

c * 

VCELL 

INT 

DB 

c * 

VDB 

INT 

EPR 

c * 

VOL 

0 

MAIN 

c * 

WATE  . 

iriT,o 

EPS 

c * 

WB 

INT“ 

EPS  ‘ 

c * 

WBT 

INT 

EPS 

c * 

WCELL 

INT 

DB 

c * 
c * 

WT 

0 

MAIN 

c *** 

EPS 

EPS 

EPS 

EPS  ' 

EPS 

MAIN 


1.1 


EPR 

VESIZE 

"EPS 

EPS 

EPS 


DARK/LITE  *00005860 
FT**3UNIT  BATVOL*00005870 

VDCMIN  BAT  VLT*'6o005b80 

FT**3TDT  BAT  V0L*000 05890 
VDCMIN  CELL  U *00005900 
M3 VOL  CELL  *00005910 


VDCAVE  ALL  VGL*000"05920' 
F7**3  EP  VOL  ' *00005930 
_ KG  ARRAY  WX  *00005940 
KGUNIT  BAT  WT*00005950 
KGTOT  BAT  WT  *00005960 
LB  CELL  WGT  *00005970 


LBS  EP~  WT 


*00005980 

*00005990 


, iYULiiuriCPIC  nnnftTnin" 

*CfS  SoootSzi 

S Lg“P;<^*’^A]'tf  »W*TF-WC,*CjHP,HACTI<T,THCHIIT.COMVHT.TWKMT.Pt':i:Tli-nnnn«.nJn 

* ^ » IBTLOC  »RADA * RADAB.f  RAT  »HTRPWR  »HTRPRB  » ' T 

* HPT,HTPIPtfVCHP,HTPT,EC,N,C0MRT,ACSSN,BlTRAT(2)» 

* EQBLGySABOLGLSATWT * 

*CTOO?R  OCR ^ LTR APMR C fc 4 ^^P^RUNC  ,TT RUNCVOE.TE; 

— 1-  FEEINV , D&TE^XVEST. 

COMMON  /DBCOMZ  IDS  (30)  tL>ATAb  ( 55,90) 

DIMENSION  NCONF ( 10 ) y IPIC(5),  ICH0SE15) ,TTCHOS E ( 5 ) 7 

REAL  HU»N, ICH jLMbDD, LM&DG, LMBDP,Kl,K2 


00006040 
00006050 
00006051 
00006053 
CM)  006054 
06006055 
000  06056 
00006060 
00006070 
00006080 


ISN  0011 


?TTTT'  TT — rr7^r=~z — -~<r  »*•’«**  • AW>/  fC 

^ChMl^T/?  0/  ’ 9/,S0L/13S3-/*VC/1*l7»"FI^^I59^7 

LM8DD=.3  * 


ISN  0012 

ISN  0014 
ISN  0015 


C **" 

c 


000061 LO 
00006120 
00006130 


**  INITIALIZATION  ** 

IF  (ITER.NE^O)  GO  TO  140 
MEAN  RADIUS  W EARTH  IN-~FEET 
HE=24.0530612Fb 
MU=1.407o45E16 


00006140 

00006150 

00006160 

00006170 

0000.6180 

00006190 


<) 

I 


ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

0016 

0017 

0018 

0019  ' 

0020 
0021 

- 

HP=6076.*ALT 

A=HP+HE 

A32=A**1 .5 

HFDA=HE/A 

S=).02*ARSlN(H£DA) 

N=S0RT(MU)/A3«i 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

00 22 

0023 

0024 

0025 

0026 
0027 

10 

T£DTS==S/(Prfc~S) 

TE=2.*S/N 

RFD'=.01*OPTEMP-*1.0 
DO*  10*1  = 1,5  ’ 
ICHOSEd  )=0 
I ERR=0  

ISN 

0028 

c * 

LMBOD  MUST  GO  TO  REL 
NB=2 

ISN 

0029 

DO  20  1=1,5 

ISN 

0030 

20' 

NCHOSt ( I )=0 

ISN 

0031 

NLR=2 

ISN 

0032 

WATfc-0.0 

ISN 

0033’ 

ARFA=0«0 

c ^ _ _ _ ^ 

c **  SET  UP  DELTA-R  AND  DElIta-T  (RADIATION  DEGRADATION  AND 

. _ A TEMPERATURE  CORRECTION  FACTORS ) 

ISN  0034  DE LR=»05  " 7“ 

1SN  0035  IF  ( ALT. GT. 400. J DELR=«3 

C , 

c 

ISN  0037  If  .(ALT.&T .5000.  ) GO  TO  80 

ISN  0039  iCONFsNCONMS ) --  - - - ■-  — — 

ISN  0040  GO  To  (30,50,30,50,30*50)*  ICONF 

ISN  0041  30  lCONF=PiCONF(l) 

ISN  0042  “ GC'  TD  ( 50*50,  -*0 *40,40)  * ICONF  " 

C 

ISN  0043  _ 40 __  DELT=.U 

ISN  004*  ‘ GO  TO  1.40  ~ ...  ' - - 

C 

C 


00006200 
00006210 
00006220 
00006230. 
00006240 
00006250 
00006260 
00006270 
00006280 
00006296” 
00006300 
00006310. 
00006320 
00006330 
00006340 
00006350 
00006360 
00006370 , 
00006380 
00006390 
00006400 
000~06410 
00006420 
00006430'. 
00006440 . 
00006450 
00006460 
00006470 
OOQOc.480 
00006490 
00006500. 
00006510 
00006520 
00006530 
00006540 
0000.6550 
00006560 
00006570 
00006580' 


50 


ISN  0045 
. 1SN  0046 

"“ISN-  0047’ 

ISN  '0048 

* , M , * 

I SN~  004** 

• ISN  0050 


_ISN  0051 
ISN  0052 

ISN  0053 


50 

C 

'60' 


IC0NF=NC0NF(1)  

GO  TO  (60,60, 70,70,70),  ICONF 

Wl7=76I  ~ 

GO  TO  140 


DEL.T^',04’ 

GO  TO,  140  ‘‘ 


70 

C 

c **  ALTITUDE  IS  GREATER  THAN  5000  ^AUflCAL  MILES 
BO IC0Nf=NC0NF( 5 ) ' 


■ISN  0054" 
ISN  0055 


C 

90 


so,  ISN"  0056 

I 

£ ISN  0057 


C 

100 


GO  TO  • (90,110,90, 110,90,110)",  ”lCONF 
iCQNF=NCONF(l ) 

GO  TO  ( 140, 140, 100,1  OOTI 00  n iCOW"" 
DELt=.08 


ISN  ‘0058 
ISN .0059 


ISN  0060 
ISN  0061 


C 

_110_ 

C 

120 


GO  TO  140 


ICONF =NCONF (i ) 

GO  TO  (120,120,130,130,130)*  ICuNF 
DELF=-.05 


00006590 
00006600 
00006610 
00006620 
. 00006630 
•000066 40 
00006650" 
0,0006660 
"00006670 

7 00006680" 

00006690 
00006700 
00006710 ' 
. 00006720 
00006730 
00006740"' 
00006750 
_ 00006760 
" . 00006770 
00006780 
■ 00006790 


■.'GO  TO  "140 
C ... 

^ 130  ' DFLT-i02  • 

• -c-: 

c • - ; 


00006800 
00006810 
00006820 
0000.6830 
00006840 
.000068,50 
000068,60 
0©  0068,70 


ISN  0062 

T C Kl  Ari  / 


-7— St-t  -Ll.—J^IZ™^™^‘,-J,-*--'******:*******************#**;******±±** 

L * NOW  Wt  WILL  &E  DOING  THE  LPR  MACRO  SELECT ION  " ( S , S AND?) 7S IT) riflfTnAfiwi" 

c *™****^************^****************************************.**##*4:QQpQZlPQQ 

"140  TTONF^C  ONF  ( 5~)  ~ ?9P.9-6_9J.9_ 

c G0  T0  ‘150,150,280, 280,450,450),  ICONF  ' Q0006930 

c — " • • : — - - . _ .00006940 

C **  SHUNT  REGULATION  DLS1GN  **  

....  - . „ 00006970 


ISN  0064 
ISN  0065 
ISN  0066 
ISN  0067" 
ISN  0068 


ICGNF=NCQNF{ 5 ) 

ISR1E=IDB(1) 

ICELLF=IDB<2| 

I CHGR  F =7  DB ( 3 ) 
1PCUE=IDB<12> 


ISN  0069 
ISN  0071 
ISN  0072 
ISN  0073 
ISN  0074 
ISN  0075 


IF  CIPICm.NE.O*  GO  TO  160* 
ISR1=1 

ICELL=IDBt l )-*■! 

ICHGR=IDB  (2  ) + i 

iPcuriD&an+i 

NPCU^l 


vO  ISN  0005 
4-  ISN  0086 

H- 



ISN  0087 

ISN  0089 
ISN  0090 
ISN  0091 
1$N  0092 

ISN  0093" 
ISN  1 0095 
ISN  0096 
ISN  0097 
ISN  0098 


ICHGR=IP1C(3) 

GO  TO  210 

IF  (I SR  1 .~GE .1  SRIeFgo'  TO  180 
ISR1=IPIC( 1)+1 
ICFLL-IPIC(21 
ICH£R=IPIC(3I 
GO  TO  210 

IF  UCELL.GE MICELLE)  GO  TO  190 
ISRl-i 

ICFLL=1PIC(2)*1 

ICH6R  =IPTC<  3 ) , 

CG  TO  210 


ISN  0099 
ISN  0101 
ISN  0102 


IE  (ICHGR-GE-1CHGRE)  GO  TO  200 
ISR1=1 

ICtLL=ZD&(l)+l 


00006980 

00006990 

00007000 

00007010 

00007020 

00007030 

00007040 

00007050 

00007060 

06607070 

00007080 

00007090 

00007100 

00007110 

000071,20 

00007130 

00007140 

00007150. 

00007160 

00007170 

00007180 

00007190. 

00007200 

00007210 

00007220 

00007230 , 

00007240 

00007250 

00007260. 

00007270 

00007280 

00007290 

00007300 

00007310 

00007320 

00007330 

00007360 

00007350 

00007360 


vO 

i 


0103 

0104 

"oTofT 
0106 
0107 
010  8 ' 

C 

200 

ICHGR=IPIC<3»+1  . ""  ‘ - — 

GO  TO  210 

_ J * * 

00007370 
0000.7360 
. . 00007390 

1 c hiu  S E { 1 ) — ~1 
ICHOSE  ( 2.)=— 1 
1C'HBSE('3>=-1  ■’ 

00007400 

00007410 

00007420 

L 

C 

RETURN  ■ 

00007430 
, 00007440 
. ' 00007450 

- 

c £*= 
c ** 
c 

COMPUTE  SELECTION  PARAMETERS  FOR  SHUNT  REGULATION  DESIGN  ~ 

THIS  IS  FOR  SHUNT  REGULATOR, CATTERY  AND  BATTERY  CHARGER  

00007460 
. 00007470 
.00007480 

c 

; 

00007490 

c 

c ** 

DETERMINE  NUMBER  OF  SHUNT  REGULATORS  REQUIRED 

00007500 

00007510 

0109 

c 

210 

’NSR=1'  ' 

00007520 

00007530 

00007540 

QUO 

220 

CAPHAX=0ATABt6.ISRll 

C 

**  DETERMINE  EXCESS  ARRAY  POWER  FOR  REGULATION 

00007550 

0111 

c 

~P§? Lp TAR  > * 11  • *TEi> TS* ( 1 . / ( ETAD*ETAC«ETAE ) ) I 

- 00007560 
• 00 007570 

■ 0112 

c 

00007580 

PBOL=PS/( (l.-DELR)*(l,-OELF)=M  l.-DELT )*( l-DELI )*I1-DELM) ) 

00007590 



c 

00007600 

0113 

■ PtXCLS=PBQL-PLMIN  ‘ 

00007610 

0]>14 

0116 

0117 

0119 

C 

IF  (PLMIN.Gc.PEXCES)  GD  TO  23c 

00007620 

00007630 

230 

C 

j NS R- ( PEXCES-PLMIN J/CAPMAX+.9 
IF  (NSR.LE.O)  NSR=1 
CONI INUE 

■ 00007640 
00007650 
00007660 

NOTt  ADD  SPECIAL  EQUIPMENT  (AS  NECESSARY) 


I SN  . "Cl  2.0 
1SN  0121 


C ** 

_c_ , 

C SET  VOLTAGES  FOR  THIS  DESIGN 

C ' 

VD6=27.  ' ' 

V£M=25'. 

C 


00007660 

00007690 

00007700 

00007710 

00007720 

00007730 

0&007740 

00007750 


C **  BATTERY  ALGORITHM  * " ” ~ — " 

C 

. c DETERMINE -REQUIRED  CAPACITIES 

ISN  012*  CR-CPL+TE/3600. ) / ( LMBDD*ETaD J 

ISfv  012:3  ^ CA=CR/VDB 

C DETERMINE  MINIMUM  INSTALLED  CAPACITY 

C 

1SN  0124  ' " CI=CA'*RFD  ' ~ ~ 

C 

C **'  DETERMINE  NUMCER  OF  CELLS  IN  SEKIfcS ( TO  BE  SUPPLIED  TO  RfcL) 

ISN  0125  " NC=VBM/VC 


00007760 

00007770 

00007760 

00007790 

00007800 

00007810 

00007820' 

00007830 

00007840 

00007850 

00007860 

00007870 

00007880' 

00007890 


ISN  0126 
ISN  0128 


ISN  0131 


C _ 

C “ 

C ** 

c ** 
c ** 


00007900 

DETERMINE  SELECTION  PARAMETERS  ON  CELLS  ' " " ““00007910" 

IF  (ITER  »G£.  1)  N8=NCH0S£(2)  00007920 

El STAR-C  I/Nb  __  _ 00007930 

"00007940- 

00007950 

DETERMINE  CHARGE  CURRENT  RATING  REQUIRED  FOR  THE  BATTERY  CHARGER  *00007960 
CCELL-CI  STAR  - . - oqqq^70- 

ICH-CCcLL/CHKINT  00007980 

_ . _ . _ 00007990 

00008000 

00008010 

COMPARE  THE  HARDWARE  PARAMETER  TO  THE  SELECTION  PARAMETER  _ **00008020 

" 60008030' 

IE  <DArAbf6,lSRl)-GE.CAPMAX.AND.0ATAbl6,ICLLL)«&t.CiSTAR.AND«£»ATAB0000b040 

I ( 6»  ICHGF'  1.GE.1CH)  GO  TO  270  000080*50 


ISN  0133 
ISN  0135. 
ISN  0136 


IF  (ISR1.GE.ISR1E)  GO  TO  2*0 
ISR1-ISRI+X 

GO  TO  220  


ISN  0137 
'ISN  0139 
rSN  0140 
ISN  0141 


If  IlCELL.Gt.iCELLEl  GO  TO  250 
IS  R 1=1  * ' ” 

lCELL=ICtLL+l 
GO  TO  220 


ISN  0142 
. I SN  - 0144 

L 

250 

IF  .<  ICHGR.Gfc.lCHGRE)  GO  TO  260 
ISR1-I. 

00008150 
000081 60 
/ 00008170 

: I SIT.  .0145  ■ 
ISN  0146 
ISN  0147 

ICELL=IDB<l)+l  - - - 

. ICHGR=ICHGR+1 
GO  TO  220 

00008180 
' oio’668196 
00008200 

r'  ISN  0148 
■ ISN  01*9 
f ISN  "0150" ‘ 
‘ ISN  0151 

C 

260 

C ' : 

•ICH0SEC1 >=-l 
ICH0SE(2)=r-l 

ICH0SE(3)=-i  ’ ‘ 

, return 

‘ 00008210 
00008220 
' ' 00008230 
00006240 
00008250 
• ’ 00008260 

ISN  0152 
ISN. 0153 

C 

270 

VCfcLL=DATAfa(24»ICELL ) ,, 

V WCElL=DATAB|23,ICF.LL) 

00008270 

00008280 

00008290 

, ISN  > 0154 
ISN  0155 

C 

ETAE=0ATA8(7,ICELL) 

WB=NC*WCELL*K2 

00008300 

00008310 

00008320 

■f  .ISN  ,,0156 

VB=NC*VCELL*Ki  

00008330 

£ ISN  0157 

u 

WBt=WB*N£  ' 

00008340 

00008350 

ISN  0158 
’ISN  0159 

c 

VBT=VB*Nb  - - - 

ETAC=DATAB(7*ICHGRJ  • 

00008360 

00008370 

00008380 

ISN  0160 

c 

c 

NCH=NB  • • 

• 00008390 

00008400 
00008410 

ISN  0161 
ISN  0163  ■ 

. ISN  0164  - 

271 

IF  (NCHOSE (1)  .GE.  WSRI  GO  TO  271  

NCH0SEI1.)=NSR 

IF  fNCH0SE(2)  .GE.  NB)  GO  TO  272 

66008420 

00008430 

-00008440 

ISN  0166 
ISN  0167 

272 

NCHOSE  < 2 ) =NB 

IF  {NCHOSE (3)  .GE.  NCHJ  GO  TO  273 

00008450 
00’<j 08460 

ISN  0169 

NCH0SE(3)=NCH  ■ 

00008470 

ISN  0170 

273 

IF  (NCHUSE (4)  .GE.  NPCU)  GO  TO  274~~ 

00068480 

00008490 

00008500 

• ISN  0172 
ISN  .0173 

2 74 

NCH0Sfc(4 }=NpCU 

NCHOSE ( 5 )=0  . . 

ISN  0174 

C 

IChOSe<1)=DATa6(1,ISR1)  . 

1 l>  00008510 

00008520 

ISN  0175 



ICHO  S EJ_2  ) =DA  T A b ( 1 , 1C  ELL  ) _ 

00006530 

1SN  0176  ICHOSE (3 )=DATAB ( I » ICHGR)  ' 00008540 

ISN  0177  ICH0SE(4)=DATAB(i,IPCU>  00008550 

ISN  0176 ICHOSE (5 1=0 _ 00008560 

C “ ' 00008570 

ISN  0179  IP1C(1)=ISR1  00C08S80 

ISN  0160  IP  1C l?!  = ICeU_  _ _ 00008590 

iSN  0181  IPiCf3l  = ICHGR  " " " ~ -- - - ______ 

ISN  0182  IP1C(4)=1PCU  00008610 

ISN  0183  __  IP1C(5)=0  ...  _ 00008620 

C 00008630 

C „ 00008640 

I SN  018* WT  = NSR»0ATA6C  23 » ISRx ) T+NCH*DATAB(23, ICHGR )+NPCU*PATAB { 23t  IPCU ) 00008650 

* +WT  ‘ ‘ * 00008660 

c 00008670 

.ISN  0x65 yOL-NSR*DATAB ( 24 1 1 SR 1 ) ♦ VBT +NCH*PAT AB I 24, ICHGR ) »NPCU*DATAB { 24, 1 PCU  J 0000 8680 

* 4 VOL  00008690 

c 00008700 

ISN  OISfa __ GD  TO' 550 J 00008710 

C 00008720 

. C 00008730' 

C *»  SHUNT  AND  DISCHARGE  DESIGN  **  ^ 00008740 

0 ‘ " 00008750. 

ISN  0167  280  ICONF=NCUNF ( 5 ) 00008760 

ISN  0188  IDRfc=10B<4)  00008770 

ISN  0189 ISR2F=iDB(5J~  ' ' . r ^00008780” 

ISN  0190  ICELLE^I DB C2 I 00008790 

ISN  0191  ' ICHGRE-IOB (6) 00008800 

ISN  0192  NCCU-1  ” ""  00008810 

C ’ 00008820 

ISN  0193 . IF  (IPlC(l).NE.  0)  GO  TO  290  0000  8830 

ISN  0195  IDR=ID8  ( 3)+l . "00008840 

ISN  0196  ISR2=I0B <4)+l  00008850 

lSNi0197  _ ICELL=ID8(l)-t-l  __  00008860 

ISN  0198  I CHGR  = 1DB{5)-*1  ' 00008870“ 

ISN  0199  ICCU=10tJ  (6)+l  00008880 

ISN  02QQ  _ _ £TAp=0.a5 00008890 

ISN  0201  ET  AC  = 1 .6  • * ----- ....  --  00008900* 

ISN  0202  ETAE=0.65  00008910 

ISN  0203  _JEJAR=1*Q  ....  ' _ 00008920 


-118 


ISM  0204 

r 

GO  TO  360  ‘ 

; ISN  0205 

v> 

290 

' IF'  (ITER.EO.O)  GO  TO  300 

tSN  0207 
ISN  0206 
1SN  0209 
1S'N"0210  " 

ISN  02X1 
; ISM  ”0212 

" c 

IDR=I PIC ( 1 ) 

• ' iSR2==IPlC(2)  . 

ICFLL=IPICC3) 

IChG,p=ipicU)  * ----- 

ICCU=IPIC  < 5 ) 

,_G0  TO  360  , 

ISN  0213 
ISN  0215 

300 

, IF  (TDR.GE.IDRE)  GO  TO  310 
IDR=IPIC( 1 1 + 1 . 

ISN  02X6 
ISN  -02X7 
-ISN  0218 

> • 

ISR2=IPIC(2J 
• ICE  LL=IPlt(3>, 
' ICHGR=ipiC(4) 

.■ISN  0219 
ISN  02.20 

C 

ICCU=IPIC(5)  

GO,  to  360 

ISN  0221 
ISN  022  3 • 

ISN  022  4 ' 

• 310  • 

IF  ( lSR2-Gt:.iSR2E ) GO  TO  320 
1DR=I D8 13 ) +1 
• 1SR2=IP1C(2)+1 

ISN  0225 
ISN  0226 
•■ISN  '0227 

- 

ICFLLssI P 1 C (3  ) 
ICHGR=IPIC{4) 
ICCU=IPIC(5) 

ISN  0228 

r 

GO  TO. 360  i 

ISN  0229 

V 

320 

IF  (1CELL.GF.1 CELLE)  GO  TO  330 

ISN  0231 
ISN  0232 
ISN  0233 

• 

IDR=ID5(3)*1  

ISR2=rDB(4)+l 
IC£U=IPIC(3)+1  T 

ISN  0234 
ISN  0235 
- ISN  0‘236 

rCHGR=tpIC<4) 
, ICCU=IP1C (5) 
GO  TO  360 

ISN' 0237 
ISN  0239 

c 

330 

IF.  (ICHGR.Gl-.ICHGRE)  GO  To  340 
, IDR=I0B(3J+1 

ISN  0240 
ISN  0241 
ISN  0242 

I SK2=IDB (4 ) +1  " 

ICE  LL=IDB ( 1 ) + l 
ICHGR=XPIC(4)^i 

00008930' 

• ’ 6 0008940 

00008950 
*-  "00008960 

00008970 
000089 80_ 
"*  , 00008990 
’ 00009000 
0000.9010 
00009020" 
' 00009030 
00009040 
00009050  ' 
’ 00009060 

00009070 
00009080" 
1 d000'9090 

• 00009100 
‘ 00 00912.0 

00009120 
00009130 
‘ ' ; 00009140 
' 00009150 

' * 00009160 
' 00009170 " 
' ‘00009180 
00009190 
" ' 00009200 

. - 0G0 09210 

00009220 
V ..  00009230 

• 00009240 

' _6o669;250_ 
00009260 
00009270 
• ' 00009280 
• ‘Oy 009290 
00009300 

• 00009310 


611-' 


ISN  0243 
TSN  0244 


ISN  0245 
ISN  0246 
ISN  0247 


ISN  0248 


ISN  0249 

ISN  0250 

?> 

^ ISN~025l 
ISN  0252 


ISN  0255 
ISN  0256 
ISN'  0257 
ISN  0259 
ISN  0260 


ICCU=IPIC<5J 
GO  TO  360 


_C_ 

340 

350 


00  3501=1, 5 
ICH0SE(I)=-1 
RETURN 


C 

C 


C **  DETERMINE  NUMBER  OF  DISCHARGE  REGULATORS  REQUIRED 
C 

360  ND=N& 


C 

C 

C 


**  DETERMINE  EXCESS  ARRAY  POWER  FOR  REGULATION 


PS  = tP~L/ETAR)*U.  + Te>TS*ll./|  ETAO*ETAC*£TAE ) ) ) 

PBOL=PS/( Cl.-OELR )*f l.-0£LF|*{ l.-DELTI*! 1-OELl )*f I-DELM) ) 


PEXC£S=PBOL— PLMIN  ' * 

IF  (ITER  »GE«  I .AND.  NCHOSEdJ  .GE.  ND1  ND=NCHn«:P  ( j. ) 


ISN  0254  PD~PL/<ND*ETAD1 

C 

C **  DETERMINE  NUMBER  OF  SHUNT  REGULATORS  REQUIRED _ 


C 
370 


CAPMAX=DATAE(6,ISR2» 

NSR=1 


IF  ( PLHIN»GE*PEXCES J GO  TO  380 
NSR=( PEXCtS-PLM IN  J/CAPMAX+.9 
IF_  (NSR.LE.O)  NSR=1 
CONTINUE 


00009320 

00009330 

00009340 

00009350 

00009360 

00009370 


_JL*1  ^?^£.SfclECTION  PARAMETERS  FOR  SHUNT  AND  DISCHARGE  REGULATION  - 
C **  THIS  IS  FOR  DISCHARGE  REGULATOR , SHUNT  R EGU LA TOR, 8 ATT tRY, BATTERY 
C **  CHARGER  AND  SIZING  THE  CENTRAL  CONTROL  UNIT  - - 
0 


00009380 

00009390 

00009400 

00009410 

00009420 

00009430 

00009440 

00009450 

00009460 


ISN  0262  380 

C 

C **  SET  VOLTAGES  FUR  SHUNT  AND  DISCHARGE  DESIGN 

ISN  0263  VDB=2I. 

ISN  0264  VBM=19* 


00009470 
00009480 
00009490 
' 00009500 
00009510 
00009520 
00009530 
00009540 
00009550 
00009560 
00009570 
00009580 
00009590 
00009600 
00009610 
00009620 
00009630 
00009640 


00009650 

00009660 

00009670 

00009680 

00009690 

00009700 


~w 


ISN  0265 


ISN  0266 


ISN  0267 


ISN  0268 


-f  ISn  0269 
- ISN  027 1 


ISN  0272 
ISN  0273 


C 

C 

c 


**  SET  UP  BATTERY  SELECTION  PARAMETER 


C 

C. 


c 

c 

c" 


DETERMINE  REQUIRED  CAPACITIES  ’ 

CR=(PL*TE/3600» }/ ( LMBDD*£TA0 ) 

CA=CR/VDB  ' ' ' “ 

. . ..  ^TERMINE  ' MINIMUM  INSTALLED  CAPACITY 
CI=CA*RFP 


C 

C 


C 

C 

c 


DETERMINE  NUM8ER  OF  CElLS~_IN  SERIES  (TO  BE  SUPPLIED  TO  R£L) 
NC=VBM/VC 


00009710 

00009720 

00009730 

00009740 

00009750 

00009760 

00009770 

00009780 

00009790 

00009800 

00009810 

00009820 


cistar  is  selection  parameter  on  cells 


"TfTitER  .GE.  i)  NB=NCHfDSE  ( 3 ) 
CIS  I AR=CI/NB 


00009830 

00009840 

00009850 

00009860 

00009870 

00009880 


**  ' CHARGER  'SELeTTIOW  

~ CURRENT  RATING  REQUIRED  FOR  THE  BATTERY  CHARGER 


00009890 

00009900 

00009910 

00009920 

0000993,0 

*00009940 


C 

C 

c 

c 


CCS:  LL=CI  STAR 

ich=ccell/chmint 


** 


o 

c 

c 


**  COMPARE.  THE  HARDWARE  P^RAMETtR  TO  THE  SELECTION  PARAMETER" 


00009950 
00009960 
00009970 
00009980 ' 
00009990 
00010000 


**00010010 

00010020 

00010030 


ISN  0274 


ISN  0276 
ISN  0278 


lMFi<rJT^T^^°^GhvD*tND*DATAB{6,IS,l2)',GE*C^PMAX*AND*,JATAB(6*IceO0O10650 

1 ^E^CISTAR.AND.I?ATAB(6»ICHGR)>GE.ICH>  GO  TO  440  OQOl 0060 


IF  (IOR.Gt.IDRb ) GO  TO  390 
IDR— IDR+1 


00010070 

,00010080 

000X0090 


-9-121 


ISN 

0279 

GO  TO  370 

S * ‘ ' 

' , , ">•  v-  00010100 

C 

oooiouO 

ISN 

0280 

390 

IF  ( I SR2 .GE.ISR2E)  GO  TO  400 

00010120 

ISN 

0282 

IDR=IDB(3)+1 

00010130 

ISN 

0283 

ISR2=1SR2-*T 

00010140 

ISN 

0284- 

GO  TO  3 70 

00010150 

C 

* 

00010160 

ISN 

0285 

400 

IF  (rCfcLL.GE.ICELl.EJ  .GO  TO  4X0 

00010170 

ISN 

0287 

TDR=I0B(3l+I 

00010180 

ISN 

0286 

ISR2=10B  (4)  + i 

“ _ 00010190 

ISN 

0289 

ICFLL=ICFLL+I 

000 102 00 

ISN 

0290 

GO  TO  370 

00010210 

c 

00010220 

ISN 

0291 

410 

IF  (ICHGR.GE.ICHGREJ  GO  TO  420 

' 

00010230 

ISN 

0293 

IDR=IDB(3)+1 

. ' 00010240 

ISN 

0294- 

ISR2=IDB(4)+1 

00010250. 

ISN 

0295 

IC3FLL=ID8  ( 1 1 + 1 

00010260 

ISN 

0296 

ICHGR=ICHGR+I 

00010270 

ISN 

0297 

GO  TO  370 

/ 

00010280 

C 

00010290 

ISN 

0298 

420 

DO.  430  1=1,5 

JJ* 

' 00010300 

ISN 

0299 

430 

1CH0SE ( I ) =— 1 

00010310 

ISN 

0300 

RETURN 

00010320 

C 

00010330 

C 

■'  ■ 

~ V 

00010340 

ISN 

0301 

440 

ETAD=DATAB(7*1DR) 

00010350 

ISN 

0302 

ETA£=DATAB ( 7, XCELL ) 

00010360 

ISN 

0303 

ET*.C=DATAB  (7,  ICHGR  ) 

00010370 

ISN 

0304 

VC  FLL=DA  TAB ( 24 1 1 CE  LL ) 

00010380 

ISN 

0305 

MCE  LL=OATAB ( 23 , I CELL) 

00010390 

ISN 

0306 

WB=*iC*WCELL*K2 

00010400 

ISN 

0307 

VB=NC*VCELL*K1 

V 

00010410 

ISN 

0308 

met=mb*nb 

0001 0420 

ISN 

0309 

VBt=VB*NB 

00010430 

ISN 

0310 

NCH=Nb 

00010440 

ISN 

C 

00010450 

0311 

IC  HOSE ( U =DATAB ( 1, IDR ) 

*■ 

00010460 

ISN 

0312 

I CHOSE (2)=QATAB( 1 , ISR2) 

00010470 

ISN 

0313 

ICH0SE(3 J=DaTAB( ItlCELLl 

* 

; 

00010480 

\£T 

I 


ISN 

ISN 

~IsW 

ISN 

ISN 

ISN 

ISN 

JSN 

ISN 

ISN 

ISN 

ISN 

_ISN 

iSfe 

ISN 

ISN 

rjt 


0314 

0315 

0316" 
0318 
_0319 
0321" 
0322 
0324 
0325" 
0327 
032 ^ 

0330 

033 1 


0332 

0333 

0334 


0335 


I SR  0336" 


ISN  0337 


ISN  '0338 


ISN 

~ISfi 

ISN 

ISN^ 

ISN 

ISN 


0339 

0340 

0341 

0342 


.0343" 

0344 


ICH0S£(4)=DATAB< 1,ICHGR> 
1 CHOSE ( 5 )=DATA6 ( 1* ICCU ) 


IF  (NCHOSE ( 1 ) .GE.  NO)  GO  TO  451 
NCHOSE ( 1 ) =ND” • 

451  IF  (NCHOSE (2)  .GE*  NSR ) GO  TO  457 

Mr  i ir\  r-  t . — — ■■  . 


00010490 

00010500 

00010510 


M 


NCHOSE  ( 2)  =NSR' 

452  IF  (NCHOSE (3)  .Gfc.  NB)  GO  TO  453 
NCHOSE (3 )=NB 

453  IF  (NCH0SFC4)  .GE.  NCHJ  GO  To  454" 
NCHOSE (4 >=NCH 

454  IF  (NCHOSE(S)  ,GE « NCCU)  GO  TO  455 


NCHOSE 15) =NCCU 

C ** 

455  1RIC(1)=IDR 


00010520 

00010530 

00010540 

00010550 

00010560 

00010570 

00010580 

00010590 

00010600 


"IPIC  ( 2 ) = iSR2~~ 
IPIC(3)=ICELL 
1P1C(4)=ICHGR 


C 

c 


IP IC ( 5 ) =ICCO 


00010610 

00010620 

00010630 

00010640 

00010£>50 

00010660 


*WNCCU*DATAB(23*1CCuI+WT*^A^*^ 121,1 SRZ ’ tMaT*^CHSDATAB  <23, ICHGR>+~  ' 

rv^cu”“o?nB  ( KVB  mnsr*datab  1 24>  ichgr  > * t 


00010670 

00010680 

00010690 


00010700 

00010710 

00010720 


. c 

c 


GO  TO  590 


C 

C 

450 


**  SERIES  LOAD  REGULATION  DESIGN 
1CONF=NCONF(5) 


00010730 

000X0740 

00010750 

00010760 

00010770 

00010780 


ILRE=IDB’(8T  ~ 
ICELLE-I0B{2) 
ICHGRE  =IDB (9) 
ISPDE=IDB(10) 
lPDE— 10b ( 11 ) 


00010790 
"00010800 
rOC 01 08 10 
00010820 
00010830 
00010840 


00010850 

00010860 

00,010870 


ISN  0345 
ISN  0347 
ISN  0340 
ISN  0349 
ISN  0350 
ISN  0351 
ISN  0352 
ISN  0353 
ISN  0354 
"ISN  0355 
ISN  0356 
ISN  0357 
ISlJ  0358 


IF  < IPICC 1 1.NE.  0 > YGO  JO  46 0> 
ILR=IDB(-7)4l  ' 

ICELL=IDB<1)+1 
ICHGR  = IDB<8)  + l' 

ISPD=I0BI9>+1 
IPD-IDEH  101+1 
ETALR-0.9 
ET  AE=0 ■ 65 

§TAC=1.0  . 

ftad=i-o  ‘ , 

NSPl)=l 

NPD=2 

GO  TO  520  ^ ; 


0359 

0361 

0362 

0363 

0364 

0365 

0366 


IF  (I TER. EG. 01  60  TO  -470 
ILR=IPICC1) 

ICELL=IP1C<2) 

ICHGR=IPIC<3) 

ISPD=IPIC(4) 

IPD=IP1C(5| 

GQ  TO  520 


0367 

.0369 

0370 

0371 

0372 

0373 

0374 


IF  ULR.GE.ILRE)  GO  TO  480 
iL&=ipicm+i  1 

ICELL^IPICC  2) 

XCHGR=IPIC (3 ) 

ISP0=IPIU4) 

IPD=IPIC(5) 

GO  TO  320 


ISN  0375 
ISN  0377 
ISN  0378 
ISN  0379 
ISN  0380 
ISN  0381 

ISN  0382 
ISN  0384 


IF  ( ICELL.GE. ICELLE)  GO  TO  490 
ILR=-I0B(7)+1 

ICELL~IP1C( 21+1 

•ICHGR=IPIC(3) 

ISPD-IP1CC4) 

1PD=I  P1L  { 5) _____ 

IF  IICHGR.GE.ICHGRE)  GO  TO  500 
ILR=.roe«  7J+1 


ISN  0385 
ISN  0386 
ISN  0367 
TSU  0388 

ISN  0389 
ISN  0390 
ISN  0391 


ISN  0392 


£ TSN  0393 
ISR~B'394 

t 

ISfci  0395 


ISN  0396 
ISH  0398 


Tstf  5399  " 
ISN  0400 


C 

c 

c ** 

c ** 
c ** 
c 


ICELL=IDB<1)+1 
ICHGR=IPIC(3)+1 
ISPD=IplC 14) 
IPD=I PIC (5) 

DO  510  1=1,5 
ICHOSF  1 1 )=— 1“ 

return 


compute  selection  PARAMETERS  For  series  load  regulation 
THIS, IS  FOR  THE  LOAD  REGULATOR, BATTERY, BATTERY  CHARGER  AND 
SIZING  THE  SOLAR  POWER  DISTRIBUTOR  AND  POWER  DISTRIBUTOR 

NLR  rs  THE  NUM8ER  OF  LOAD  REGULATORS  REQUIRED 
NLR=2 

**  DETERMINE  EXCESS  ARRAY  POWER  FOR  REGULATION 

PS=(PL/ETAR)*(I.+TEDTS*f l./(ETAP*ETAC*ETAE) ) ) 

PBOL=PS/  ( I l.-DELR )*(  1 •— DELF)*  ( I.— DEL T) 4=  I I—OElI  ) #(  I— DELM I ) 


C 

c ** 

c 

c 


PEXCE$=PBOL-PLMSN 


DETERMINE  SELECTION  PARAMETERS  FOR  LOAD  REGULATORS 

IF  CITER  -GE.  I .AND.  NCHOSEII)  -GE.  NLR)  NLR=5tCH0SE<  1) 
PLK=PL/(ETALR*NLR) ' 

SET  VOLTAGES  FOR  THIS  DESIGN 

VDB=27.  

VBM=23. 

StT UP  BAfTERY- SELECTION-  PARAMETERS 
DETERMINE  REQUIRED  CAPACITIES 


00011270 
000H280 
G00I1290 
00011300 
00011310 
00011320 
00011330 
00011340 
00011350 
‘00011360 
00011370 
00011380 
00011390 
00011400 
00011410 
00011420 
00011430 
00011440 
00011450 
00011460 
00011470 
00011480 
00011490 
00011500 
00011510 
00011520 
0001 1530 
00011540 
00011550 
00011560 
00011570 
00011580 
00011590 
00011600 
00011610 
00011620 
‘00011630 
00011640 
00011650 


ISN 

I5N 


0*01 

0402 


CR= { P L*TE/3600 . )/ 1 tM BDD*ETAD ) 
CA=CR/VDB 


S'-* 


ISN  0403 


ISN  0404 


ISN  0405 


C 

C 

C 

C 

c 

c 

c 

c 

c 


00011660 

00011670 

00011680 


determine  minimum  installed  capacity 


■ CI=CA5RFr*  ' ~ 

DETERMINE  NUMBER  OF  CELLS  IN  SERIES (TO  BE  SUPPLIED  TO  RED 
NC=VBM/VC 


00011690 

00011700 

00011710 


ISN  0407 


CISTAR  IS  SELECTION  PARAMETERS ~0N  CELLS 
IF  I I TER  »GE»  1>  NB=NCH0SEC2) 


C 

c ** 


C 

c * 
c 


CISTAR=CI/NB 

CHARGER  SELECTION  PARAMETER 


00011720 
00011730 
00011740 
00011750 
00011760 
00011710 
00011780 
00011790 
00011800 
00011810 
00011820 
0001 1830 


f ISN 


N 

U1 


ISN 


DETERMINE  CHARGE  CURRENT  RATING  REQUIRED  FOR  THE  BATTERY  CHARGER  *00011850- 

' 00011860- 

0001 1870 


0408  CCELL=CISTAR 

0409  ICH=CCELL/CHMINT 

L_ 

~ ”C  **  ' - — 

C ** 

_c  **  COMPARE  THE  HARDHARE  PARAMETER  TO  THE  SELECTION  PARAMETER 

C **  "*  : 

c ** 
c 


ISN  0410 


530 


00011880 
00011890 
00012.900 
00011910 
**00011920 
00011930 
00011940 
00011950 


- — ■ vj  i a T Jv 

IF  <DATAB<6,ILR).GE.PLR.AND.DATABI6>ICELU.GE.CISTAR.ANDVDATAB(6,I066ll96O" 

ICHGRi.GE.ICH)  GO  TC  580  ' 000ii970 

~ \ 000  Il>980 


ISN 

ISN 

ISN 

ISN 


0412 

0414 


0415' 

0416 


IF  (ILR-GE.ILRE)  GO  TO  540 
ILR— I LR+1 


C 

540 


GO  TO  530  " 

IF  ( ICELL.«GE>  ICELLE I GO  TO  550 


00011990” 

00012000 

00012010 

00012020 

00012030 

000 12040 


1-1261 


ISN  0418 
ISN  0419 
ISN  0420 
' F ' 

ISN  0421 
ISN  0423 
ISN  0424 
ISN  0425 
ISN  0426 


ISN  0427 
ISN  0428 
ISN  0429 


ISN  0430 
ISN  0431 


sD 


ISN  0432  . 
ISN  0433 
ISN  0434 
ISN  0435 
ISN  0436 
ISN  0437 
ISN  0438  . 
ISN  0439 
ISN  0440  . 


■ISN  0441 

ISN  0442 
ISN  0443  ..., 
~TSN  0444 
ISN  0445 
ISN  0446 


ISN  0447 
ISN  0449 
ISN  0450 
ISN  0452 
ISN  0453 


ILR=IDBI7K1 
ICELL=ICELL+1 
GO  TO  530 

C ' — 

55,0  IF  flCHGR.GE.lCHGRE)  GO  TO  560 

ILR=IDB(,7)+1 „ 

ICELL=IDBC1)+1 
ICHGR=ICHGR+i 
GO  TO  530 

C ’ : 

560  DO  570  1=1,5 

570  ICHOSE<t)s-l 

RETURN  " “ 1 


C 

c 

580  ETALR=OAT AB ( 7, ILR ) ~ ~ 7 

' etar=et*lr  - 

\ . , PLRD=PL4(1»  /ETALR—I.  ) . . v . 

EtA£=DATABt7, ICELL) 
ETAC=DATAB(7,ICHGR> 

VC£LL=DATAB(24,ICELU 

WCELL=DATAB ( 23,ICELL>  1 ~ 

WB-NC*HCELL*K2 
VB=NC*VOEiX*Kl 
WBT=WB*NB  “ 

VBT=VB*WB 
NCH=NB 
~C 

ICH0SE(1)=DATAB(I,1LR) 

„ ICH0SE(2  )=DATAS(  1,IC£LL>;  ■ 

I CHOSE ( 3 ) =DATAB ( 1 , ICHGR ) 
ICH0SE(4)=DATAB(1, ISPD) 
ICH0SEC5)=DATAB(1,IP0) 

~C  : " 

IF  (NCHOSE(l)  »G£«  NLR>  GO  TO  581 
NCHQSE  ( I ) =NliR,  

581  IF  (NCHQSE (2)  .GE.  NB ) GO  TO  582 
NCHDSE(2)=NB 

582  IF  (S9CH0Sfc(3)  . .GE.  NCH ) GO  TO  583 


O 


J( 


* 


00012050 

00012060 

00012070 

’ ' ' 00012080 
• * . 00012090 

- ..  00012100 

00012110 

00012120 

00012130 

* 06012140 

00012150 

- ,-a  r\i  . L . F . OOP  12160 

. 00012170 

00012180 

00012190 

r “ 00012200 

3?  F-  ' / , . ; ' 000 12210 

, • 00012220; 
00012230 
00012240 


■S  ■ ■ .«■ 


00012250 
00012260 
00012270 
00012280. 
00012290 
00012300 
0001.2310 
00012320 
. 00012330 
s.  : ; 0,001234'fe 
00012350 
00012360 
00012370 
r 00012380 
00012390 
, ,,  00012400.. 

00012410 
00012420 
00012430 


TSN  0455 
ISN  0456 
ISN  0458 


ISN  0459 
ISN  046i 


ISN  0462 
ISN  0463 
ISN  0464 
ISN  0465 
ISN  0466 


ISN  0468 


v ■ 


NCH0SEI3  J-NCH ■>  - > ■*'  *)r.  - ” ~ 

583  IF  CNCH0SEI4]  \iG£.  NSPD)  GO' TO  584*'"  C ' 
NCHOSE  <4  ) =NSPD 


\A 


'564‘  IF  (NCH0SF(5»  .GF • NPD)  GO  TO  585 
NCHOSET  5 )=NPD 


00012440 

00012450 

00012460 


585  IPIC(i)=ILR 
IP IC ( 2 ) ~iCELL 
IP 10(3 I =ICHGR 


00012470 

00012480 

00012490 


•4 


c 


IPIC (4)=ISPD 
IPIC(5)=IPD 


f,  ■%  V ^ f 4 *+  >/'•  h > . 00012560 

. , WT=HUR *DATAB(23,  rLR)4WBT*NCH$PATAB(  23,  lOHGfc  l?*N$PP*bAf AB  ( 23, ISRP)  + ■ 0001258(1 

* Mon*nAr>noi  r nn  \ “S-2 — ■ — — 


00012500 

00012510 

00012520 

00012530 

00012540 

00012550 


* NPD*DATAB(23,IPD)+WT  00012590 

00012600 

JTOL=NLRy DATA6 124 »1LR  )+V6T+NCH*DATAB( 24, I CHGR ) +WSPD*DATAB < 24, ISPP ) 00012610 


C 

c 


* +NPD*0ATAB(24»IP0 )+VOL 


00012620 

00012630 

S00012640 


to 


ISN  0469 
ISN  0470 


M 

ISN  0471 
ISN  0472 
ISN  0473 


ISN  0474 


rSN  0475 


C 

C 

C 


**  SOLAR  ARRAY  SIZING 


*590 


IC0NF=NC0NF{'5I  - . ...  rn  

GO  TO  <600,610,606,610.600,6X0) , rCONFV' 


>iy 


00012650 

00012660 

00012670 


C 

C 

600 


**  ORIENTED  PADDLE  SOLAR  ARRAY  (NON-SPINWING) 
FW=7.3 


LMBDG=11  . 
GO  TO  670  * 

v>y 


\, 


C 

C 

610 


& « \ y 

if.'- 


00012680 

00012690 

00012700 

000IZ710 

00012720 

00012730 


00012740 

00012750 

“00012760 


ICQNF=NC0NF(6) 


C 

C 


GO  TO  ( 630,620, 650 ),  ICQWP  ~ IT- 

**  BODY  MOUNTED,  BOX  SHAPE#  NQ N^S PINNING 


00012770 

00012780 

00012790 


00012800 

00012810^ 

00012820 


9-1281 


ISN  0476 
ISN  0477 
ISf*  0478" 


FW=3.4 
LMBDG-i. 
GO  TO  670 


ISN  0479 
ISN  0480 


ISN  0482 
ISN  0483 
ISN  0484 


ISN  0485 
ISN  0486 
ISN  0487 


IC0NF=NC0NF(1 ) 

IF  (ICONF  «GE . 3)  GO  TO  640 


**  BODY  MOUNTED  CYLINDER  SPINNING 


FW=3.4 
LM8d6=1./PIE 
GO  TO  670 


**  BODY  MOUNTED  CYLINDER  NON— SPINNING 


FW=3.4  

LMBdG=2./PIE 

GO.  TO  670  


ISN  0495 


LMB0G=.5 


C 

C 


COMPUTE  ENERGY  BALANCE  EQUATION 


00012830 

000X2840 

00012850 

00012860 

00012870 

a 00012880 

00012890 

00012900 

00012910 

00012920 

00012930 

-ft...  00012940 

00012950 

00012960 

00012970 

00012980 
00012990 
. ' ...  . ' 00013000 

00013010 
00013020 

L_  00013030 

00013040 
• . OQQ 13050 

_2 1 . 00013060 

00013070 

00013080 

_ 00013090 

00013100 

00013110 

00013120 

00013130 

00013140 

00013150 

00013160 
' 00013170 

00013180 
00013190 
.00013200 

00013210 


LEVEL  21.7  < JAN  73  i 


OS/36  0 FORTRAN  H 


COMPILER 


ISN  0002 
ISN  0003 
ISN  0004 


ISN  0095 
ISN  0006 
ISN  0007 

ISN  0008 
ISN  0009 
“ISN  0010 


ISN  0012 
ISN  0013 


ISN  0015 


ISN  0017 


ISN  0018 


ISN  0020 
ISN  0021 
ISN  0022 
ISN  0023 


OPTIONS  - NAME=  MAIN,0PT=01,LIN£CNT=41*SIZE=0000K, 

SOURCE  tEBCOIC, NOLIST tNOOECK»LOAD,NOMAPfNOEDIT,IOfNOXREF 
SU6R0UT1 NE  AUXPRO ( IPIC 1 IERR» ITER.NCONF .ICHOSE .NCHOSFI 
COMMON  /USER2/TTHST*CLIFE  ~ 

COMMON  /BTWN/WTtVOL,OT,D,OX,OY,DZ,X>l,YJ*Z3tRJ»ACTHST,TOTIMP,PL* 

*PLMIN  t LMBDDy  AR  £A  t SAT  LG , HATE  .NC.ACSHP.HARMHT.THOHIrfT  .r.nNVKT.THk-UT. 

* PASST?  t SAT TWI tTPRIM, IbTLOC, RADA »RADAB, RAT, HTRPWR, 

* HTRPRB f HPTtHTPIPE »VCHP»HTPT»FC ♦XNZ£RO»COMRT *ACSSN»B1TRAT (2) , 

* EQBLGtSABOLGtSaTWT 

COMHON  /USfcRI/fcOMlHT  »EQM2WT»DIAMAX  ,ALT 
COMMON  /DBCOM/TOB ( 30 ) ,DATAB( 53*90) 

DIMENS  ION  IPIC  ( 9 ) ,NCONF<  6 ) , ICHOSE{  14)  .MCHtiSE  < 14  ) * 

* IACCPT( 20)  — ‘ 

DIMENSION  NC14) 

DATA  XHR/1.5/ 

IF < NCONF ( 2 ) .GT.l)  60  TO  38 

THIS  IS  COLD  CAS  CONFIGURATION £ „ 

DETERMINE  MAXIMUM  THRUST  FROM  SANDC  • ' 

FMAX=  A MA  xTT  ACTUS  T»T  TH  S T > ' 

IF(FMAX.LT.50..AND.T0TIHP.LT.50000.)  GO  TO  1 g 


THIS  IS  NOT  AN  ACCEPTABLE  CONFIGURATION 
• ICHUSF ( I ) =— 1 


RETURN 


1 CONTINUE  . ' " 

IF(ITER.NE.O)  GO  TO  3 

INITIALIZE  ICHOSE,  NCHOSE»  TERR  AND  SELECT  HARDWARE  NOT  SIZED 
I.E.,  THE  FILL  AND  VENT  VALVE  AND  RELIEF  VALVE 
00,2  1=1,14 

rcH0SEU)=  6 ‘ 

2 NCHOSE(I)=  0 
I£RR=  0 


00014750 
00014760 
00014770 
00014780 
00614790 
00014800 
00014801 
00014810 
00014820 
00014830 
00014640 
00014850 
00014860 
00014870 
00014880 
00014850 
OOoi 4500 
00014910 
00014920 


00014930 

00014940 

00014950 


00014960 

00014970 

00014980 

00014990 

00015000 

00015010 

00015020 

00015030 

00015040 

00015050 

00015060 

00015070 

00015080 

00015090 

00015100 


(9-13: 


isT 

ISN 

ISN 

0024 

0025 

0026 

NCHpSE { |;1=6  v ^ V”.  fcK  y v’  ’ 

NCHDSE (3 1-4  ■ ''  > . ' 

.00015110 

00015120 

00015130 

ISN 

ISN 

ISN 

0027 

0028 
0029 

NCHDSE < 4 >=9 
00  299  1=5,8 
299  NCHDSE (I  1=1 

00015140 

00013150 

00015160 

ISN 

ISN 

0030 

0031 

C 

11=  10b(5)  +1  „ , 

JJ'=  IDB  ( 6 > + 1 “ 

00015170 

00015180 

00015190 

ISN 

ISN 

0032 

0033 

C 

1CH0SF ( 7 ) * DAI AB (1*11) 
ICHGSE ( 8 ) = DATAB(1,JJ) 

00015200 

00015210 

00015220 

ISN 

0034 

3 CONTINUE  t ’ * ' S’  '\i<  f. 

00015230 

c 

•c 


% <9*  v'' 


?<!*. 


fC'  , •• 


~ „ £<*X 

*■  ' v ;;  *v' 

' 4»  / ' 

' * ■iy  * , . * k „ 


0001524# 

00015250 


C 

C 

C 


ISft 

isfr" 

ISN 

ISM 

ISN 

ISN 

ISN 


C 

c 


THRUSTER  SELECTION 
FIRST  CHECK  TO  SEE  IF  THERE  IS  AN  ACCEPTABLE  THRUSTER  IN  THE  DATA 


0035 


BASF 

J1E=  IDB<1> 


00015260 

000152T0 

00015280 


0036 

0037 
003S_ 
0040 

0042 

0043 


Jl  = 1 

10  THRUST  = DATAB  <6, J1 ) 

IE(THRUST.GE.FMAX)  GO  TO  12 


00015290 

00015300 

.00015310 


IFCJ1.EQ.J1E>  60  TO  11 
Jl=  J1  * 1 
GO  TO  10 


t,  4 ' S' 

*■(  , 

• *1 


00015320 

00015330 

00015340 

00015350 

00015360 


non 

NO  ACCEPTABLE  thrusters 

fa  ^ 

00015380 

00015390 

00015400 

ISN 

ISN 

0044 

0045 

C 

11 

i CHOSE ( 1 )=  -1  - V . 

RETURN 

00015410 

00015420 

00015430 

c 

AT  LEAST  ONE  ACCEPTABLE 

THRUSTER 

00015440 

c 

00015450 

ISN 

0046 

__ 

12 

CONTINUE 

TO  ^ 

— — v; -Tr.-vUr-: — r— 

00015460 

C 

C 


SELECT  PNEUMATIC  ATTITUDE  AJWdSCONTRQL  THRUSTERS  V 


> 

> r‘ 


00015480 

00015490 


-132 


C 

C 

c 


FIRST  DETERMINE  SET  OF  ALL  THRUSTERS  WHICH  SATISFY  THE  INEQUALITY 
THRUST  GE  ACTHST 


w 

ISN 
JSN 
ISN 
ISN 
ISN 
ISN ' 
ISN 
ISN 
ISN 
ISN 
ISN 


004T 

0048 

0049 


13 


0050 

0052 

0054 

0055 

0056 

0057 


1=  I 
Jl=  l 
THRUST=  DA TAB (6, J1 | 


0058 

0059 

0060 


ISN 

ISN 


0061 

0062 


IF { THRUST. GE. ACTHST)  GO  TO  15 

14  IF < JI.EQ.JIE)  GO  TO  16 
Jl=  J1  + 1 

"GO  TO  13  ” ■ ■ : 

15  IACCPT(1)=  JI 
1=  1 + 1 


16 


GO  TO  14 
CONTINUE 
IMAX=  I - 1 


C 

c 

c 


CHOOSE  THAT  THRUSTER  FROM  THE  ABOVE  SET  WHICH  MINIMIZES  THE 
QUANTITY t ABS I THRUST  - ACTHST)  . ' 


1 = 1 


00015500 

00015510 

00015520 


00015530 

00015540 

00015550 

00015560 

00015570 

J)00_I5580_ 

00015590 

00015600 

00015610 


00015620 

00015630 

00015640 


00015650 

00015660 

00015670 


00015680 

00015690 


ISN 

ISN 

ISN 

0063 

0064 

0065 

17 

THRUST=  DA TAB (6, Jl)  " “ ~ " 

D1F0LD=  ABSfTHRUST  - ACTHST) 
ICHOSEf 1 )=  DATAfi {1 ,J1 ) 

00015710 

00015720 

00015730 

I SfvJ 
ISN 
ISN 

0066 

0067 

0069 

18 

JSAVE=Jl 

IF(I.EQ.IMAX)  GU  TO  20 
1=  I + 1 

00015740 

00015750 

00015760 

ISN 

ISN 

ISN 

0070 

0071 

0072 

Jl=  lACCPTm 
THRUST=  DATA8|6,J1) 

DIF«EW=  AB SI THRUST  ~ ACTHST)  * 

'>  v V ' ' 

00015770 

00015780 

00015790 

ISN 

ISN 

ISN 

0073 

0075 

0077 

IF ( DIFNEW.LE. DIFOLD)  GO  TO  19 
IF(I.LT.IMAX)  GO  TO  18 
GO  TO  20 

00015800 

00015810 

00015820 

ISN 

ISN 

ISN 

0078 

0079 

0080 

19 

20 

difqld=  difnew’ 
GO  TO  17 
Jl=JSAvE 

' 

00015830 

00015840 

00015850 

C 

00015860 

C 

SELECT  PNEUMATIC  TRANSLATIONAL 

THRUSTERS  USING 

ABOVE  PROCEDURE 

00015870 

U 

■ » . - ... 

00015880 

•vO 

1 


u> 

UJ 


IW 

ISN 

ISM 

ISN 

XSN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

w 

ISN 

ISN 

1ST 

ISN 

ISN_ 

ISN 

ISN 

ISN 

ISN" 

ISN 

ISN 

ISN" 

ISN 

ISN 

ISN 

ISN 


0081 

0082 

0083 


0084 

0086 

0088 


0089 

0090 

0091 


0092 

0093 

0094 


0095 

0096 

0097 


0098 

0099 

0100 


0101 

0103 

010.4 


0105 

0106 
0107 
0109 
0111 
0112 


0113 

0114 


k 

_ISN_ 

r> 


0115 


1=  I - 

J2=  1 

21  THRUST  = DATAB 16*42) 

IF (THRUST.GE. TTHST)  GO  TO  23 

22  IF( J2.EQ.J1E)  GO  TO  24 
J2=  J2  + 1 

" GO  TO  21 

23  IACCPT(I>= 

1=  I + 1 
GO  TO  22 

24  CONTINUE 
IMAJC=  I - 

1 


if 


J2 


Mi 


1= 

J2~  IACCRTCI I 
THRUST=  DATAB 16, J2 ) 


DIF0L0=  ABS( THRUST  - TTHST) 
25  ICHoSfc (2 ) = DATA8(lrJ2) 

JSAVE =J2 


IF (I.EQ. IMAXI  GO  TO  28 
26  1=  1 + 1 

J2p  IACCPT ( I ) 


THRUST=  DATAB (6»J2) 

DIFNFW=  A8S(THRUST  - TTHST ) 
IF(OIFNfcW.LE.DlFQLD)  GO  TO  27 


IFII.LT.IMAX)  GO  TO  26 
GO  TO  28. 

27  OIFOLD=  OIFNEH 


GO  TO  25 
28  J2=JSAVE 


C 

C 

C 


C 

C 

c 


' THRUSTERS  HAVE  BEEN  SELECTED 

SET  NUMBER  OF  EACH  TYPE  OF  THRUSTER 


e 

C 


CHECK  TO  SEE  IF  CYCLE  LIFE  REQUIREMENT  IS  SATISFIED 

«.•  ‘l 

IERR-  0 


00015890 
00015900 
00015910 
00015920 
00015930 
00015940 
00015950 
00015960 
00015970 
00015980“ 
00015990 
00016000 
00016010 
00016020 
00016030 
0001t>040 
00016050 
00016060 
“00016070, 
00016080 
00016090 
OC 016100 
00016110 
00016120 
00016130/ 
00016140 
00016150 
00016160 
00016170 
00016180 
00016190 
00016200 
00016210 
00016220 
00016230 
00016240 
00016250 
00016260 
00016270 


ISN  0116 
ISN  0118 

a 

»v 


ISN  0120 
' ISN  0121 
ISN  0122 
ISN  0123 
" 1ST  012? 


- ISN  0125 
£ ISN  0126 
ISN"  0127 
ISN  0128 

“ISN  6*129" 
ISN  0130 
ISN  0132 
ISKT613F" 

ISN  0134 
ISN  0136 
ISN  0138 
ISN  0140 
""  ISN  01.42 


ISN  0144 
ISN  01*5 


£ 

C 

c 

£ 

C 

C 

£ 

C 

C 


c 

£ 

c 


c 


c 


c 

c 

c 


IF  IDATAB  C7,J1  I.LT.CLIFE)  I ERR=  1 1 : 1 11 

IF(DATAB(7, J2 ) -LT.CLIFE)  IfcRR-  1ERR  10 

IFRR=  1 IMPLIES  THAT  T"HE  CYCLE  LIFE  OF  THE  ATTITUDE  AND  CONTROL 
THRUSTERS  IS  TOO  SHORT.  It.RR=  10  IMPLIES  THAT  THE  CYCLE  LIFE  OF 

THE  TRANSLATIONAL  THRUSTERS  IS  TOO  SHORT.  IERR  = 11  IMPLIES  THAT 

THF  CYCLE  LIVES  OF  HOTH  THRUSTERS  ARE  TOO  SHORT  ~~ 

PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  PNEUMATIC  ISOLATION 

VALVES  AND  FILTERS  

PTI=DATA8(8,J1) 

RHO= ' 1.02E-V*PTI  ‘ ’ * 

HDOTPR=  <3.*ACTHST  * 2.*TTHST)/65. 

CDA1S0=  WDOTPR/SQRTl 200»*RHO/1»29B— 3) 

RMAX—  200./WD0TPR**2  “ 

v 

SET  LAST  EQUIPMENT  INDICES • ' 


00016280 

00016290 

00016300 

00016310 

00016320 

000J.633O 

GOO 16340" 

00016350 

00016360 

00016370 

00016380 

00016390 

000 16400 

00016410 

00016420 

00016430 

00016440 

00016450 


J3E=  108 iZ) 

j*e=  job  i _>  i 

J5E=  lOBft) 

' J6E=  IDB(5)  I 

DETERMINE  HARDWARE  INDICES 
DO ‘30  1=1,9  1 

IF n P1CC I) .NL .0)  GO  TO  31 

30  CONTINUE 
GO  TO  4 

31  IF ( ITER.NE .0 ) GO  TO  5 
IF(IPIC(1 ).LT. J3Ei  GO  TO  6 
IF(IPIC(2).LT.J4E)  GO  To  7 
IF( 1P1C( 3 ) .LT.J5E ) GO  TO  8 
TFTlPICl  4)  . LT.  JI6E ) GO  TO  9 

NO  ACCEPTABLE  COMBINATIONS 

ICH0SC(1)=  -1 
RETURN 


00016460 
OCOa  6470 
000164_80_ 
00016490 
00016500 
00016510 
00016520 
00016530 
05  016540 
00016550’ 
00016560 
00016570 
00016580 
00016590 
00016600 
00016610  ' 
00016620 
00016630 
00016640 
00016650 
00016660 


SET  - 


■ xO 


ISN  0146 


ISN 

ISN 

ISN 

ISN 


0147 

0148 

0149 

0150 


ISN  0151 


ISN 

ISN 

TsH' 

ISN 

ISN 

ISN 

ISN 

"ISN 

ISN 

ISN 

ISN 

ISN 

► 

ISN 

ISN 

ISN 

'is'N 

ISN 

ISN 


0152 

0153 

0154 

0155 

0156 


0157 

0158 

0159 

0160 
0161 


0162 

0163 


0164 

0165 
0166_ 

0167 

0168 
0169 


ISN 

jsn 

ISN 

ISN 

ISN 

ISN 

ISN 


0170 

0171 


0172 

0173 

0174 


0175 

0176 


C 

c 

c 

c 


4 CONTINUE 


J3= 

J4= 

J5= 

J6  = 


IDB { 1 ) 1 
108(2)  ♦ 1 
IDB( 3 ) + 1 
IDB  (4)  + 1 


GO  TO  1200 

CON) TNUE 
J3=  IPlC(l) 
J4—  IPIC(2) 
J5=  IPIC(3l 
J6=  IprC(4) 


GO  TO  1200 

6 CONTINUE 

J3=  IPIC(1)  + 1 
J4=  IP1CC2) 

J5f  IPICJ3) 

J6=  fplC ( 4) 

GO  TO  1200 

7 contTnme 

J3-  I0B(1)  * I 

J4-  1 PIC  12 ) + 1 

J5=  IPIC ( 3 ) 
vl6—  IPIC  (4) 

GO  TO  1200 


8 


CONTINUE 
J3=  IDB(l) 


♦ 1 


J4=  IDB (2)  + 
J5=  1 PIC (3 ) 
J6=  IPIC (4) 
GO  TO  1200 


9 CONTINUE 


+ I 


00016670 
00016680 
00016690 
00016700 
00016710 
00016720 
00016730 
00016740 
00016750 
00016760 
00016770 
00016780 
00016790 
00016800 
00016810 
00016820 
00016830 
00016840 
00016*850 
00016860 
00016870_ 
00016880 
00016890 
000 16900 
00016910 
00016920 
OOG1693CL 
00016940 
00016950 
00016960 
00016970 
00016980 
00016990 
OG017000 
00017010 
00017020 
00017030 
00017040 
00017050 


ISN  0177 
ISN  0178 
ISN  0179 
ISN  0180 

ISN  0181 


ISN  0182' 


ISN  0184 
ISN  0185 
ISfif  0186 
ISN  0187 


& ISN  0188 

T5fi'75l89 

ISN  0190 
ISN  0191 
ISN  0192 
1$N  0193 


ISN  0195 
ISN  0196 
ISN  0197 


ISN  0198 


J3=  108(1  m “ — — 

J4=  1DB ( 2 ) + 1 
J5~  I DB { 3 ) + 1 

J6=  1PIC  (4)  + 1 

* 

1200  CONTINUE 

: THE  HARDWARE  INDICES  ARE  SET 

32  IF ( DATA6C 7, 33 ) »LT . CD AI SO •ORrDATAB Ft»  J4) .GT^RMAX ) GO  TO  33 

■ ISOLATION  VALVE  AND  FILTER  ARE  ACCEPTABLE  

DELPIS  = (1.29E-3/RH0)*(WD0TPR/DATAB(7,j3) )**2 

DE  LPFI  = DATA6<7*J4)*WD0TPR**2 

ICHOSE ( 3 ) = DATABll*J3I  

ICHOSE  f 4) = 0ATA6(1,J4)  4 - 

• PRELIMINARY  CALCUEatTONS  FOft~  SfcLECT10SE~0F  " REGULATOR  AND  TANK 

PREO"  PTI  + 2.+DELPIS  + DLLPFI 

CDAREG=  W00TPR/SQRT(5600.*PRE&/lT27E4i 
WPR=  l«l*T0TlMP/65 • f 

ACSWP=  WPR  • 

VPRT=  3.4E3*WPR/28;  

IF (PrEG.lT.DAIAB(8, J5) .0R.PR&G.GT.DATAb{9,J5) .OR.OATABC7, J5) *LT* 
* COAREG.QR.DA TA b( 6,  J6)  .L.T.VPRT)  GO  T O 33 

REGULATOR  AND  TANK  ARE  ACCEPTABLE 
- ..  ICH05E(  5 1 - DATAB(i,J5> 

ICHOSE  ( 6 ) = DA  TAB  ( 1 »J6  ) “ 1 ! 

TNKWT=  DATAb ( 23» J6 ) 

SIZE  PLUMBING  AND  CONNECTORS  1 —7 — 

PCWATE  = «2*DATAB( 23» 36  ) , - 

STORE  LAST  INDICES  ACCEPTABLE 


00017060 
00017070 
00017080 
00017090 
00017100* 
00017110 
00017120 
00017130 
00017140 
00017150 
00017160 
00017170 
00017180 
00017190 
00017200 
00017210 
00017220 
00017230 
OOC 17240 
00017250 
00017260 
000 i 72 70 
00017280 
00017290 
00017300 
OOP 17310 
00017320 
"00017330 
00017340 
00017350 
00017360 
00017370 
00017380 
00017390 
00017400 
00017410 
00017420 
00017430 
QOO 17440 


0199 

0200 
0201 

'0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 
0219 


IPIC<1)=  J3«  "7  ~ 

IPIG<2)=  J4 
IPIC(3)=  *15 
IPIC14>=  J6  '“* 

N ( 7 ) = II 
N(  81  = JJ 

Nt i >=  ji 

N(2>  = J2 
N { 3)  = J3 
N(9J=  J4 
N<5)=  J5 
N ( 6 ) = J6 
DO  322  1=1,8 
J=  N< I) 

WT=  HT  NCHDSE(I)*0ATA6(23,J)  , 
VDL=  VOL  + NCHQSE (I)*DATAB{24„J> 
PL=  PL  + NCH0SE(U*DATAbfl6,J) 


PLMIN=  PLMIN  + 
322  CONTINUE 

WT=  MT  + ACSHP 
RETURN 


NCHOSEt  IKDATABC 18 
+ PC MATE 


1SN  0220 


33  CONTINUE 


ISN  0221 
ISN  0223 
ISN  0225 
ISN  0227 


ISN  0229 
ISN  0230 


HARDWARE  SELECTION  NOT  ACCEPTABLE  > 

_IFjlJ3«LT . J3E)  GO  TO  34 
IF( J4.LT.J4E)  GO  TO  35 
IF(J5.LT.J5E)  GO  TO  36 
IF ( J6.LT.J6E)  GO  TO  37 


NO  ACCEPTABLE  HARDWARE  COMBINATION 

ICHOSETli=  -1  ~ 

RETURN 


ISN  0231 
ISN  0232 
ISN  0233 


34  J3=  J3  + 1 ~ ” 

GO  TO  32 

35  J3=  3DB { 1 ) + 1 


138 


ISN 
ISN 
■ T?rr 

0235 

0236 

36 

J4=  J4  + 1 — ^ ; — 

GO  TO  32 

J3=  IDB(I)  + I 

00017840 

00017850 

00017860 

1 SN 

ISN 

ISN 

0237 

0238 

0239 

J4=  IDB  ( 2 ) + l — 

J5=  J5  + 1 

GO  To  32  * 

00017870 

00017880 

00017890 

i oN 
ISN 
_ISN 

0240 

0241 

0242 

3/ 

J3  = IDB(l)  ♦ 1 

J4=  108(2 ) + I 
J5=  IDB ( 3 ) + 1 

00017900 

00017910 

00017920 

IoN 

ISN 

_tsn 

0243 

0244 

0245 

38 

J6=  J6  + 1 ""  

GO  TO  32 

CONTINUE  ''  - V' 

"'00017930“ 

00017940 

00017950 

ISN 

0246 

C 

C 

IF (NCGI4F  (2)  .FQ.3 ) GO  TO  62  . " ' 

000179 60“ 

00017970 

00017980 

c 

r 

THIS  IS  MONQPRQPE LLANT  CONFIGURATION 

00017990 

i — 

c 

DETERMINE  MAXIMUM  THRUST  FROM  SANDC 

00018000 

00018010 

ISN 

ISN^ 

0248 

0249 

c 

FMAX=  AMAXI ( ACTHS  T » TTHST) 

IF  (FMAX.LT .1000.. AND. TOTIMP.LT. 200000.. AND. TOTIMP -GF .1  OflfiO.  1 fin 

00018020 

00018030 

00018040 

h 

c 

c 

V.  rc  39  

THIS  IS  NOT  AN  ACCEPTABLE  CONFIGURATION 

00018050 

00018060 

00018070 

ISN 

ISN 

0251 

0252 

c 

ICHOSE ( I ) - -1 
Rfc  TURN 

00018080 

00018090 

00018100 

ISN 

ISN 

0253 
0254 , 

c 

> - 

39 

CONTINUE 

VFTMAX=0* 

00018110 

00018120 

00018125' 

1 SN 

U255 

c 

c 

IF  ( ITER.NE  .0 ) GO  TO  42  ' — 

INITIALIZE  ICHOSE. NCH0SE,IERR  AND  SELECT  HARDWARE  NOT  SIZED 

00018130 

00018140 

00018150 

c 

c 

c 

I.fc.i  THE  RELIEF  VALVE, FILL  AND  VENT  VALVE  AND  FILL  AND  DRAIN 
VALVE 

00018160 
00018170 
OCO 18180 

I SN 
ISN 
ISN 

1 A 

0257 

0258 

0259 

40 

DO  40  1=  1,14  

ICHOSE(I )=  0 
NCHOS£( I ) = 0 

00018190 

00018200 

00018210 

ISN  0260 
. ISN  0261 
ISN  0262 

IERR=  0 v 
NOHOSE (1}=6 
NCH0SE<2)=2 

ISN 

ISN 

ISN 

Tsn 

0263 

0264 

0265 

0266 

f' 

NCH0SE<3}=4 
NCHOSE (4) =9 
DO  41  1=5,11 
41  NCHOSE ( I ) =1 

ISN 

0267 

t 

11=  IDBC5)  + 

'ISN 

ISN 

ISN 

0268 

0269 

0270 

JJ=  S DB ( 6 ) + 
KK=  IDB  C 11 > 
IC.HOS  E(9 ) = 1 

ISN 

ISN 

0271 

0272 

C 

ICHOSE ( 10)=  1 
ICHOSE ( 11 )=  1 

ISN 

0273 

42  CONTINUE 

- 1SN  0274 
CS  ISN  0275 
ISN  0276 
ISN  0277 
ISN  0275; 
ISN  0281 
ISN  0282' 


THRUS TER  SELECTION 

FIRST  CHECK  TO  SEE  IF  THERE  IS  AN 
BASE , _ 

J1E=  IDB ( 8 ) 

J1  = IDB ( 71  + 1 1 

IO«rTHRUST=  DATAB  (6,  Jl ) 

IF { THRUST .GE.FMAX)  GO  TO  120 

IF( Jl.EQ. JIE)  GO  TO  UP 

Jl=  J1  + I 
GO  TO  100 


X-  * r ' ‘ * 5 , " ' 00018220 

00018230 

, , 00018240 

00018250 

00018260 

00018270 

~ 00018280 
00018290 

_ 00018300 

60018310 

00018320 

0001 8330_ 

' i , 00018340 

^ 00018350 

afC  >.  00018360 

00018370 
00018380 
0001 8390 
00018400 

ACCEPTABLE  THRUSTER  IN  THE  DATA  00018410 

' 00018420 

00018430' 

00018440 

_ 09Q1B450 

“ -----  00018460 

i 00018470 

, 00018480 

0 00 i 8490 
00018500 


l 

I SH  0283 

C NO  ACCEPTABLE  THRUSTERS  ", 

C 

110  ICHOSE ( 1 )=  -1 

' 

V 

00018520 

00018530 

00018540 

ISN  0284 

RETURN 

00018550 

C 

00018560 

C 

AT  LEAST  ONE  ACCEPTABLE  THRUSTER 

^ 

00018570 

ISN  0285 


120  CONTINUE 


00018590 

00018600- 


c 

c 

c_ 

c 


SELECT  PNEUMATIC  ATTITUDE  AND  CONTROL  THRUSTERS 


THRUSTD6EEACTHSTSET  °F  ALL  THRUSTERS  WH1CH  SATISFY  THE  INEQUALITY 


00018610 

00018620 

00018630 


ISN  0286 
ISft~ 0287 
ISN  0288 
ISN  0289 
ISN  0291 
ISN  0293 
ISN  0294 
ISN  0295 
ISN  0296 
ISN  0297 


1=  l 


ISN  0298 
ISN  0299 


VO 

I 

h" J 

o 


ISN' 

ISN 

ISN 

ISN 

ISN 

ISN 


0300 

0301 

0302 


0303 

0304 

0305 


ISN 

ISN 

ISN 


0306 

0308 

0309 


ISN 

ISN 

ISN 

ISN 

ISN 

ISN 


0310 

0311 

0312 


0314 

0316 

0317 


ISN 

ISN 


0318 

0319 


Jl  = ID8 ( 7)  + 1 
130  THRUST=  0ATAb<6iJl) 

JLFl_Ti!RUST.GE. ACTHST)  GO  TO  150 
14f>  IF(Jl.EO.'jlE)  GO  TO “160 
Jl=  Jl  * 1 
GO  TO  130 


150  IACCPT II)—  Jl 
1=  1 + 1 
GO  TO  140 


160 


“CONTINUE 
IMAX-  1-1 


C 

C 

C 


CHOOSE  THAT  THRUSTER  FROM THE  ABOVE  SET  WHICH  MINIMIZES  THE 
QUANTITY f ABS* THRUST  - ACTHST) 


1=1 

Jl=  IACCPT (I) 
THRUST=  DATAB (6, J 1) 


DIFOLD=  A8S ( THRUST  - ACTHST ) 
170  rCHOSE(ll=  0ATAB(1,J1) 
JSAVE=J1 


IEll.EQ.IMAX)  GO  TO '200 
ISO  1=  I + 1 

Jl=  lACCPT(I). 


THRUST=  DATAB ( 6,  Jl) 

.01  FNEW=  ABS( THRUST  - ACTHST) 
IE( DIENE W»LE. DIFOLD)  GO  TO  190 


190 


IFffTLT.IMAX)  60  TO  180 
GO  TO  200 
DIFoLD=  DIENEW 


200 


GO  TO  170 
J1=JSAVE 


00018640 

00018650 

00018660. 


00018670 

00018680 

00018690 

00018700' 

00018710 

00018720' 

00018730 

00018740 

00018750 


00018760 

00018770 

00018780 


00018790 

00018800 

00018810 


00618820 

00018830 

00018840 


00018850 

00018860 

00018870 

00018880 

0001889b 

00018900 


00018910 

00018920 

00018930 


00018940 

00018950 

00018960 


00018970 

00018980 

00018990 


-141 


. f 

t 

ISN 

0320 

C 

. c 

SELECT  PNEUMATIC  TRANSLATIONAL  THRUSTERS  USING ; ABOVE  PROCEDURE  ' 

. z . >■>'  » *'t  • g "V\  ,,  " S’* 

i=.i  ' ■ ’ o . .. 

. -GOO 19000 
00019010 
00019020 

ISN 

0321 

J2  ~ IDB(7)  + I 

00019030 

ISN 

0322 

210 

THRUST=  DATAB(6,J2) 

00019040 

ISN 

0323 

IF (THRUST. GE.TTHST)  GO  TO  230 

• 

00019050 

ISN 

0325 

220 

IF( J2.EQ.J1E)  GO  TO  240 

''  'it*  «v 

00019060 

ISN 

0327 

J2=  J2  ♦ 1 

00019070; 

ISN 

0328 

GO  TO  210 

00019080 

"ISN 

0329 

230 

IACCPT(I)=  J2. 

00019090 

ISN 

0330 

1=  I + I 

00019100 

ISN 

0331 

GO* TO  220 

00019110 

ISN 

0332 

240 

CONTINUE 

'k  • /v  - *■ 

00019120 

ISN 

0333 

IMAX=  r ~*1  - 

, *%<  ' <*  '*  * i 

00019130 

ISN 

0334 

1=  1 . . . x ' 

, r ^ ' 

Vr.  - / <■  ' - - 

00019140, 

ISN 

0335 

J2=  TACCPT (II 



00019150 

ISN 

0336 

THRUST=  DATA8(6»J2) 

00019160 

ISN 

0337 

OIFOLD=  ABS (THRUST  - TTHST) 

0001917G 

TsKT 

0338 

250 

ICH0SE(2)=  DATAB(1,J2) 

* “ 

00019180 

ISN 

0339 

*|SAV£=J2 

00019190 

ISN 

0340 

IFU.EO.rMAX)  GO  •t’ti  280 

00019200 

ISN 

0342 

260 

1=  I + 1 

00019210 

ISN 

0343 

J2=  IACCPT(I) 

00019220 

ISN 

0344 

THRUST^  DAIAM6.J2) 

mu 

00019230 

isN 

0345 

DIFMEW*  ABS  (THRUST  - TTHST) 

* ' - v * £ \ - 

00019240 

ISN 

0346  • 

IPtDIFNEW.LE.DIFQLD)  GO  TO  27,6 

00019250 

ISN 

0348 

1FU.LT.INAX1  GO  TO  260 

00019260 

ISN 

0350 

GO  TO  280 

00019270 

ISN 

0351 

270 

DIFQLD=  difnew 

00019280 

ISN 

0352 

GO  TO  250 

00019290 

ISN 

0353 

280 

J2-JSAVE  ' ' 

00019300 

>' 

C 

; ' f <.  v. 

00019310 

c 

THRUSTERS  HAVE  BEEN,  SELECTED  , 

00019320 

c 

00019330 

c 

SET  NUMBER  OF  EACH  TYPE  OF  THRUSTER 

00019340 

c 

00019350 

c 

> ’'«»  1 - > “ \ ^ ( » 

00019360 

c 

* 

**  ' ' / , - V < 

00019370 

,c 

CHECK  TO  SEE  IF  CYCLE  LIFE  REQUIREMENT  IS  SATISFIED  > „ ' 

00019380 

ISN  0354 
ISN  0355 


ISN  0357' 


C 

C 


IERR=  0 

IF(0ATABf7»Jl).LT.CLIFE)  ltRR=  1 
IF(DATAB  C7*J2  J.tT »CLIFEI  IERR=  lERR 


10 


C 

c 

c_ 

c 


I^Rf^IMPLI£S  THAT  THE  CYCLE  LIFE  OF  THE  ATTITUDE  AND  CONTROL 
THRUSTERS  IS  TOO  SHORT.  IERR=  10  IMPLIES  THAT  THE  CYCLE'TThTOF' 
In.  I^NSLATIONAL  THRUSTERS  IS  TOO  SHORT.  IERR=  11  IMPLIES  THAT 
CYCLt  . LIVES  OF  BOTH  THRUSTERS  ARE  TOO  SHORT 


00019390 

00019400 

00019410 

00019420 

00019430 

00019440 

00019450 

00019460 

00019470 

00019480 


C 

PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  MONOPROPEI  l ANT 

. 00019490 
ISOLATIONOOO 19500 

ISN 

0359 

c 

c 

valves  and  filters  ™ - 

RHOF=  .036 

00019510 

00019520 

00019530 

ISN 

ISN 

^£5  T~CK1 

UjoU 

0361 

0363 

WD  QTF= { 3 • * ACT  HS  T + 2.*TTHSf 1/200. ' - 

IF  (NCGNF(l)  .EQ«  1)  WD0TF=TTHST/2O0« 

CO A I S0=  WDOTF/SQ  R T { 50 .*RH0F/1 . 29E-3 ) 

00019540 

00019545 

00019550 

1 1 oW 

P— 1 

c 

c 

RMAX  - 50./WD0TF**2  “ 

00019560 

00019570 

00019580 

' » 

ISN 

ISN 

ISN 

ISN 

TOM 

0365 
'0366  ‘ 

0367 

0368 

c 

c 

SET  LAST  EQUIPMENT  INDICES 
J3E=  IDB (9) 

00019590 

00019600 

00019610 

J4E  = IDB (10)  " 

J5E=  IDB (4) 

J6E=  IDB (2)  - 

00019620 

00019630 

00019640 

4 0307 

ISN  0370 

c 

J /t—  IDB  <11)  

J8E=  IDB ( 5) 

00019650 

00019660 

00019670' 

ISN 

~T^a~ 

0371 

c 

c 

DETERMINE  HARDWARE  INDICES  ' 

DO  43  I~I »9 

00019680 

00019690 

00019700 

A oN 

ISN 

ISN 

U3  f <L 

0374 

0375 

IF(IPIC(1)  .NE.O)  GO  TO  44  — 

43  CONTINUE 
GO  TO  45 

00019710 

00019720 

00019.730 

x oTV 

ISN 

ISN 

03  f 6 

0378 

0380 

44  IF( ITER.Nt.O)  GO  TO  46  “ """  ‘ 

IFCIPIC(1).LT.J3E)  GO  TO  47 
IF(IPIC(2).LT.J4E)  GO  TO  48 

00019740 
0& 019750 
00019760 

!£*I-i 


ISN  0393 
ISN  0394 
ISM  0395 


ISN  0396 
ISN  0397 
ISN  0398 


ISN  0399 


43=  IDB( 8 ) 
44=  IDB( 9 ) ‘ 
45  = 106(3)  i 


J6  = IDB(I)  h 
J7=  IDB(IO) 
48  = IOB (4)  - 


GO  TO  53 


ISN  0400 
'B~ ISN  0401 
ISN  0402 
ISN  0403 
ISN  0404 
ISN  0405 
ISN  0406 


ISN  0407 


46  CONTINUE 
~ 43=  IPICU) 
44=  IPIC (2) 
45=  IPIC  ( 3 ) 
46=  IPIC (4) 
47=  IPIC(5| 
46=  IPIC (6) 


. GO  TC  53 


ISN  0408 


ISN  0409 
ISN  0410 
ISN  0411 


ISN  0412 
ISN  0413 
ISN  0414 


47  43  = IPIC(l) 


44=  IPIC (2) 
J5=  IPIC (3) 
46=  IPIC (4) 


47=  IP1C(5) 
48=  IPIC(t>) 
GO  TO  53 


ISN  0415 
ISN  0416 


48  43=  I0BI8I . + 
J4=  IPIC(2)  < 


00019770 
00019780 
00019790^ 
00019800 
00019610 
00019820 
00019830 
00019840 
00019850 
00019860 " 
00019870 
00019880 
00019890 
00019900 
00019910 
00019920 
00019930 
00019940 
00019950’ 
00019960 
00019970 
00019980 
00019990 
00020000 
00020010' 
00020020 
00020030 
00020040 
00020050 
00020060 
00020070 
00020080 
00020090 
00020100 
00020110 
00020120 
00020130 
00020140 
00020150 


-144 


00020160 
00020170 
00020160 
00020190 
00020200 
00020210 
00020220 
00020230 
•00020240 
00020250 
; 00020260 
00020270 
_T  00020280 
00020290 
_ 00020300 
00020310 
00020320 
' ' 00020330 
. 00020340 

00020350 
00020360 
00020370 
00020380 
00020390 
"00020400 
00020410 
' * OOO2042O 
00020430 
00020440 
” 00020450 
00020460 
00020470 
00020480 
00020490 
00020500 
00020510 
00020520 
' 00020530 
00020540 


145 


C 

*•  , ’ C 

ISN  0450 

C 

c 

c 

ISN  '0452 
ISN  0453 
ISN  0454 
" ISN  0455 
ISN  0456 
ISN  0457 

I7  C 

c 

- . • .*  c 

ISN  0458 
ISN  0459 
ISN  0460 
ISN  0461 
ISN  0462 

C 

no  ISF 0463 


C 

~ r c 

* c 

ISN  0465 
iSfT  0466 

* • C 

* C 

c 

c 

ISN  0467 
ISN  0466 
ISN  0469 

f C 


C 

ISN  0471 


THE  HARDWARE  INDICES  ARE  SET 

54  IF (0ATABC7, J3l.Lt >CDAlSQ.OR «DA TAB ( 7> J4 > .GT .RMAX)  GO  TO  55 

FUEL  CIRCUIT  ISOLATION  VALVES  AND  FILTERS  ARF  ACCEPTABLE 

DELPiS=Ti  .29E-3/¥H0F}'*fWDbrF/DAfABf7,  J3)”)**2 
DELPFI=  DATABI7*J4I*WD0TF**2 
ICHOSJEO)^  DATABIl » J3 ) 

ICH0SE!4)='L)ATA'B(I,j4i  ‘ 

IPIC(IJ=  J3 
IPIC (2)-  J4 


PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  PNEUMATIC  REGULATOR 


PTI=  DATAS(8,JI) 

PFT=  PH  + 2„*DELPIS  + 2.*D£LPF1 
PREG=  PFT  + 2.*DELPIS 
WDGTPR='  28. *1 .62£-7*PREG*WD0tF/RH0F 
CDAREG=  WDDTPR/SQRTt5600.*PREG/1.27£4) 

~TFt  PR  bG.1  T .D  AT  ABT¥ » J5  l.UR.PREG.GT.  DATABT9,  jITTorT DAT A ITT  7j  SKLTT 
* CDAP.EG)  GO  TO  55 

REGULXtoFTs  aFcertable  "•  r “ ~ 

ICMOSEt5  >=  DATAB ( I * J5 ) 

IPICC  3>=  J5  ~ 

PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  PNEUMATIC  ISOLATION 
VALVE  ‘ • 

RHQPR=  30L0.*1.02E~7 

CDA3  S0=  WDDTPR/S0RT(2O0.*RHOPR/i.29E-31 
IF  CDATAB (7* J6 ) . LT. CDAiSO)  GO  TO  55 

PNEUMATIC  ISOLATION  VALVE- IS~ ACCEPTABLE  7 

ICH0SEI6)=  DATAB( It J6) 


00020550 
00020560 
00020570 
00020580 
00020590  • 
00020600 
00020610' 
00020620 
00020630 
00020640 
00020650 
00020660 
00020670  ' 
00020680 
00020690 
00020700 
00020710 
00020720  * 
boo 20730 
00020740 
00020750 
00020760 
00020770 
00020780 
00020790 
00020800 
00020810 
00020820 
00020830 
00020840 
00020850 
00020860 
00020870 
00020880 
00020890 
00020900 
00020910 
00020920 
00020930 


9-1461 


ISN  0472 


t. 

ISN  0473 
'TSfi ' 0474 
ISN  0475 
ISN  0476 
ISN  0477 
ISN  0478 
ISN  0479 


ISN  0^81 
ISN  6483 
I$N  0485 
ISN  0487 


ISN  0489 
ISN  0491 
ISN  0493 
TSN0495 
I$N  0496 
ISN  0497 


ISN  0496 
ISN  0499 


ISN  0500 


ISN  0501 
ISN  0502 


ISN  0503 
ISN  0504 
ISN  0505 


C 

C 


IP  IC  (4)="j6  ~ ' 

PRELIMINARY  CALCULATIONS  FOR  SELECTION  OP  FUEL  TANK  AND  PNEUMATIC 


c 

c 


TANK 


WFi  1.1*TOTIMP/200. 

VF«  WF/.036  ' * ~ " 

VFT=  1.1*VF 

VPRT=  PFT*VFT/(3000.  - 2.*PTT) 


00020940 

00020950 

00020960 

00020970" 

00020980 

00020990 


WPRT=.0085*VPRT' 

ACSWP=WF+WPRT , 

IF  CJ7  .EQ.  108(10)+!)  JSAVE=J7 


C IF(DATAB(6tJ7)  .LT.VFT.0R.DATAbfi,\m.LT.PFT.0R.DATAB(6».J8).LT. 

C 4 VPP-T)  GO  TO  5h 

IF  (DATA8(6,J8)  .LT.  VPRT ) GO  TO  55 

IF  (J7.EU.  J?F~.AND.  0ATAB(7,j7)  .LT . PFTJ  GO  TO  555  ” ” 

IF  (DATA6C7* J7I  .LT.  PFT  .OR.  DAT aB( 6, J8 ) »LT.  VPRTJ  GO 
IF  (DATaB(6} J7)  «Gfc.  VFT»  GO  TO  550 


TO  55 


IF  (DATA  b (6f  J7  J .GT.  VFTMAX}' 
IF  (L.ATAB(6,J7)  .GT.  VFTMAX J 
IF  (J7  .LT.  J7FJ  GO  TO  55 


J7SAV£=J7 

VFTMAX=DATAB(6»J7 


) 


555  NCHOSF ( 7PVFT/0ATAB (6, J7SAVE)+.r 


550 


C 

C 

C 


J7=J7SAVE 
1 CHOSE (7 )=DATA&(  1»  J7) 
FUEL' TANK  AND  PNEUMATIC 

ICHGSE (71=  DATAbl 1 » J7) 


TANK  AKfc  ACCEPTABLE 


ICHOSE ( 8 ) = DATAbl I » JO ) 
TNKWT=  DATAE(23»J7) 


C 

C 


SIZE  PLUMPING  AND  CONNECTORS 

PCWATE-  (DATA b t 23  , J 7 ) ♦ DAT A » ( 23 , J 8 > ) 


IP IC ( 5 ) = J7 
IPIC(6)=  J8 
N ( 9 ) = JJ 
N(10)=  KK 
N( 11  ) = II 


00021010 

00021020 

00021030 

00021032 

00021034 

00021040 


00021050 

00021058 

00021059 


00021060 

00021061 

00021062 


00021063 

00021064 

00021065 


00021067 

00021068 

00021069 


-00021080 
.000210,90 
00021100 
00021110 
.00021120 
00021130 
00021140 
00021150 
00021160 
00021170 
00021180 
. 00021190 


00021200 

00021210 

00021220 


ISN  0506  ~ 
ISN  0507 
ISN  0508 

NCii=  ji 
N ( 2 ) - J2 
N(3>  = J3 

- 

■ 

00021230 

00021240 

00021250 

ISN  0509 

NC4)  = J4 

1 

00021260 

ISN  0510 

N( 5)—  J5 

00021270 

ISN  05H 

N(6)=  J6 

00021280 

ISN  0512  " . NC7)=J7 " ‘ ~ ’ ““  00021290 

ISN  0513  NC8»  = J8  . 00021300 

ISN  0514  _D0  542  1=1,11 __  _ 00021310 


I SIT  0515 
ISN  0516 
ISN  0517 
ISN  0518 
ISN  0519 
ISN  0520 

— 

$ 

I * 

J=  NCI) 

WT  = WT  ♦ NCHOSE ( 1 )*DATABf 23, J ) 

VOt=  VOL  + NCHOSE  C I )*0ATA6  C 24  » J ) 

PL=  PL  ♦ NCHOSE CI)*0ATABCI6»J) 

PLMIN=  PLMIN  ♦ NCHOSE C T )*D ATAfi ( 18, J) 
CONTINUE 

00021320 

00021330. 

00021340 

00021350 

00021360' 

00021370 

ISN.'  0521  ' 

WT-  WT  + ACSWP  + PCWATE 

00021380 

ISN  0522 

RETURN 

00021390 

C 

00021400 

ISN  0523 

55 

CONTINUE 

00021410. 

' t * . • . 

c 

* 

00021420 

f 

c 

HARDWARE  SELECTION  NOT  ACCEPTABLE  - INCREMENT  HARDWARE 

INDICES  00021430 

c 

* - 

00021440., 

ISN  0524 

IFCJS.tf .J3E)  GO  TO  56 

00021450 

„ISN  0526 

IF.U4.LT.J4E)  GO  TO  57 

00021460. 

ISN  0528' 

IFU5.LT.J5E)  GO  TO  58 

00021470 

ISN  0530 

IFCJ6.LT.JbE)  GO  TO  59 

00021480 

ISN  0532* 

IFCJ7.LT . J7E)  ‘ GO  TO  60 

00021490 

ISN  * 0534 

1FU8.LT.J8E)  GO  TO  61 

00021500, 

c 

* * r 

00021510 

. ' 

c 

NO  ACCEPTABLE  HARDWARE 

00021520  , 

c 

00021530 

ISN  0536 

ICH0SEC1)=  -1 

00021540' 

ISN  0537- 

RETURN 

00021550. 

* 

c 

00021560 

ISN  0538 

56 

J3=  J3  + 1 

00021570 ' 

ISN  0539 

GO  TG  54 

00021580 

ISN  0540 

57 

J3=  IDBC8)  * 1 

00021590 

ISN  0541' 

J4  = J4  + 1 

OG 021600 

ISN  0542 

GO  TO  54 

00021610. 

ISN  0543 
ISN  0544 
ISN  0545 
ISN  0546 
ISN  0547 
ISN  0546 
"ISN  0549 
ISN  0550 
ISN  0551 
ISH  0552 
ISN  0553 
ISN  0554 
ISN  0555' 
ISN  0556 
ISN  0557 
ISN  0558 
ISN  0559 
ISN  0560 
'f  ISN  0561 
>-  ISN  0562 
to  ISN  0563 
' iSFT  0564 
ISN  0565 


J3=  IDP ( 8 ) * \ 
J4=  I DB  ( 9 ) ♦ I 
J5=  J5  + 1 

' GO  TO  54  

J3=  IDB  ( 8 ) + 1 
J4=  rDB(9)  + 

J5=  TD8~{  3 F + 1' 
J6-  J6  ♦ I 
GU  TO  54_ 

J3=  108 (81  + I 
J4=  ID6(9)  ♦ I 
J5=  IDB ( 3 ) ♦ l 
Jb~  TDB<1)  +~1 
J7=  J7  + 1 
GO  TO  54 
J3-  I0B(8T  + I 
J4=  106(9)  + 1 
J5=  IDB (3 ) + I 
J6="  rOB(  1)  ♦ 1 " 
J7=  106(10)  + 1 
VFTMAX=0. 

J8=“ J8  + 1 
GO  TO  54 


ISN  0566" 


CONTINUE 


this  is  b i propellant  conf i gur at i on 


ISN  0567 


IF (TGfTlHP.GE. 50000.)  60  TO  63 


THIS  IS  NOT  AN  ACCEPTABLE  CONFIGURATION 


ISN  0569 
ISN  0570 


1CH0SE( 1 )=  -1 
RETURN 


ISN  0571 


CONTINUE 


ISN  0572 


IF(ITER.NE.O)  GO  TO  65 


00021620 

00021630 

00021640 

00021650 

00021660 

0002167|0 

00021680 

00021690 

00021700 

0002172.0 

00021720 

00021730 

00021740 

00021750 

0Cr021760 

00021770 

00021780 

00021790 

00021800 

0002-1810 

00021811 

00021820 

00021830 

00021840 

00021850 

00021860 

00021870 

00021880 

00021896 

00021900 

00021910 

00021920 

00021930 

00021940“ 

00021950 

00021960 

00021970 

00021980 

00021990 


i6FT 


nO 


ISN  0574 
1SH  0575 
ISN  0576 
ISN  0577 
ISN  0578 
ISN  0579 
ISN  0580 
ISN  0531  " 
ISN  0582  ‘ 
ISN  0583 
ISN  0584 
ISN  0585 
ISN  0586" 
ISN  0587 
ISN  0588 
ISN  0589 
ISN  0590 
ISN  0591 
JESN_0592  _ 
ISN  0593 
ISN  0594 


ISN  0595 


ISN  0596 
ISN  0597 
ISN  0598 
ISN  0599 
ISN  >0600  > 


C 

C 

C 

C 

C 


C 


C 

C 

C 

C 

c 

c 


INITIALIZE  TCHDSE, NCHOSE, IERR  AND 
I-F-*_  FILL  AND  DRAIN  VALVES, FILL 
VALVE  ~ " "* 


DO  _6A_I-i,I4' 

I C HOS  E(I )=  0 
6*,  NCHOSE (I  }=  0 
I ERR  = 0 
NC  HOS  Ell)  =6 
NCHOSE  (2 ) 

NCH0St(3)=3 

'NCH0SE(4)=3  

NCHOSE <5 ) =4 
NCHOSE(6)«4 
“ DO  649  l=7ill 
649  NCHOSE (I)=l. 

NCHCSF ( 12 )=2 
NCH0SFTl3)=i  “ “ ' " 

NCHOSE ( 14 )=i 

11^  IDB<5)  + 1 

JJ=IDB (6)  + l~ 

KK=  I DB ( 16 ) ♦ I 
ICHOSE 112)  = DATAb ( 1,KK I 
iCH0Sfc(i3>=  DATAB 11,111 
ICHOSE 1141=  DATAB(1,JJ| 


65  CONTINUE 

/ 

THRUSTER  SELECTION 

FIRST  CHECK  TO  SEE  IF  THERE  IS  AN 
BASE 

FMAX=AMAX1 ( ACTHST,TTHST ) 

JlF—  IDBH3) 

J1  = 1DB ( 12 ) * X~ 

101  THRUST=  DATAB (6, J1 ) 

I FJ  THRUS J .Gc.  FMAX  ) JJO  TO  121 


00022000 

SELECT  HARDWARE  NOT  SIZED  00022010 

AWD  VENT  VALVE  AND  RELIEF  _ 00022020 

00022030 

00022040 

. . _ „ _ 00022050 

00022060 
00022070 
00022080 
00022090 
000  22  1 00 

_ 00p?2110_ 

00022120 

00022130 

00022X40 

00022150 

00022160 

00022170^ 

00022180 

00022190- 

. _ 00022200 

00022210 

00022220*' 

_ 00022230: 

...  " 00022240 

00022250 

. _•  _ . 00022260 

00022270 
00022280 
00022290 

“ 00022300' 

ACCEPTABLE  THRUSTER  IN  THE  DATA  00022310 

00022320 

00022330 

00022340 

. _ _ 0002235C 

00022360 
00022370 
.00022380 


ISN  0602 
ISN  0604 
ISN  0606 


ISN  0606 
ISN  0607 


ISN  0608 


xo  ISN  0609 
d-  ISN  0610 
g ISN  0611 
"ISF5612 
ISN  0614 
ISN  0616 
ISN  0617 
ISN  0618 
‘ ISN  0619 
' ISTT  0620 
ISN  0621 
ISN  0622 


ISN  0623 
ISN  0624 
IfSN  0626 
ISN  0626 
ISN  0627 


C 

C 

C 


C 

C 

C 

C" 

C 

c 


IF(JI.EQ.JIE)  60  TO  11  i' 
Jl  = Jl  + l 
GO  TO  101 

NO  ACCEPTABLE  THRUSTERS 

lTi  'TCHOSETi  r-  -1 

RETURN 


AT  LEAST  ONE  ACCEPTABLE  THRUSTER 
121  CONTINUE 

SELECT  PNEUMATIC  ATTITUDE  AND  CONTROL  THRUSTERS 


00022390 

00022400 

00022410 

00022420 

00022430 

00022440 

00022450 

00022460 

00022470 

00022480 

00022490 

00022500 


C 

C 

C 


EIRSTtDETERMINE.SET  Of  ALL  THRUSTERS  WHICH  SATISFY  THE  INEQUALITY 


00022510 

00022520 

00022530 


I_  1 

J1  = 106(12)  ♦ 1 
131  THRUST=  DATAb(6,Ji) 


00022540 

00022550 

00022560 


IF(THRUST.GE.ACTHST)  60  TO  151 
141  IFtJl.EQ.jUE)  GO  TO  161, 

Jl=  J1  + 1 


0002*570 

00022580 

00022590 


GO  TO  131 
151  IACCPT ( I ) = Jl 
1=  I + 1 
GOTO  141  - ~ 
161  CONTINUE 

IMAX-  I - 1 


00022600 

00022610 

00022620 


00022630 

00022640 

00022650 


C 

C 

C 

7T 


00022660 

00022670 

00022680- 


CHOOSE  THAT  ThRUSTER  FROM  THE  ABOVE  SET  WHICH  MINIMIZES  THE 
QUANTITY,  ABS (THRUST  - ACTHST) 


00022690 

00022700 

00022710 


1=1 

Jl=  IACCPT (I) 


THRUST=  DATAFrSVjT) 

OIFOLO=  ABS( THRUSI  - ACTHST) 
171  ICHGSE ( 1 ) - DATAB (1 , Jl) 


00022720 

00022730 

00022740 


00022750 

00022760 

0002Z770 


ISN 

ISN 

ISN 

0628 

0629 

0631 

181 

JSAVE=J1- 

IFCI.EQ.IMAX)  GO  TO  201 
1=  I + I 

00022780 

00022790 

00022800 

ISN 

ISN 

ISN 

0632 

0633 

0634 

Jl=  lACCPT(I) 

THRUST=  0ATAB(6,J1I 
DIFNEW*  ABS (THRUST  - ACTHST I 

00022810 

00022620 

00022830 

ISN 

ISN 

ISN 

'ISN 

ISN 

ISN 

0635 

0637 

0639 

0640 

0641 

0642 



191 

201 

IF(DIFNEW.LE.OIFOLDI  GO  TO  191 
IFll.LT.IMAXI  GO  TO  181 
GO  TO  201 

DI  FOLD»  lilFNEW 

GO  TO  171 
Jl- JSA VE 

00022840 

00022850 

00022860 

00022870 

00022880 

00022890 

C 

C 

c 

SELECT  PNEUMATIC  TRANSLATIONAL  THRUSTERS  USING  ABOVE  PROCEDURE 

00022900 

00022910 

00022920 

ISN 

0643 

1=  1 

00022930 

ISN 

0644 

J2  = IDB ( 12 ) + 1 

00022940 

ISN 

0645 

211 

THRUST=  DATAB ( 6»  J2 ) 

00022950 

ISN 

0646 

IF (THRUST. GE. TTHSTI  GO  TO  231 

00022960 

ISN 

064s 

221 

IF(J2*EQ.JIE)  GO  TO  241 

* a 

00022970 

ISN 

0650 

J2=  J2  ♦ 1 

V 

00022980 

iSfT 

0651 

GO  TO  211 

00022990 

ISN 

0652 

231 

IACCPTf I 1 = J 2 

00023000. 

ISN 

0653 

1=  1 ♦ I 

00023010 

ISN 

0654 

GO  TO  221 

00023020 

ISN 

0655 

241 

CONTINUE 

00023030  • 

ISN 

0656 

IMAX=  I - I 

00023040 

ISfT 

0657 

1=  1 

00023050 

ISN 

0658 

J2=  IACCPT ( 1 ) 

00023060 

ISN 

0659 

THRUST=  DATAB (6, J2) 

00023070 

ISN 

0660 

DIFOLD=  ABS (THRUST  - TTHSTI 

00023080 

ISN 

0661 

251 

ICH0SE(2>=  OATAB( 1 »J2 ) 

00023090 

ISN 

0662 

JSAVE=J2 

0002310® 

ISN 

0663 

IF(I.EO.IMAX)  GO  TO  281 

00023110 

ISN 

0665 

261 

1=  I ♦ 1 

00023120 

ISN 

0666 

J2=  lACCPT(I) 

00023130 

ISN 

0667 

THRUST=  DATAB (6» J2 I 

00023140 

ISN 

0668 

OIFNEH=  ABS (THRUST  - TTHSTI 

00023150 

ISN  0669  IF(DIFMEW.LE.OIFOLD)  GO  To  2T1  00023160 


ISN  0671 
ISN  0673 
ISN  0674 
TSN  0675 
ISN- 0676 


ISN  0677 
ISN  0678 
ISN  0680 


ISN  0682 
6 

ISN  0684 
ISN  0685 
ISN  0686 
ISN  0687 
ISN  0688 
TSN  0689 


ISN' 0690 
ISN  0691 


IF(I.LT.IMAX)  GO  TO  261 
GO  TO  261 

271  DIFOLD=  DIRtEw 
G0"T0  251" 

281  J2=JSAVE 

~~  Thrusters"  have"  been  selected 


StTNUMBEROE  EACH  TYPE  OE  THRUSTER 


CHECK  TO  SEE  IF  CYCLE  LIFE  REQUIREMENT  IS  SATISFIED  

A 

IERR=  0 

IF  (DATAB  <7t»m  »LT .CL1FET  "|£RR=  I 

IF { OATaB (7f J2  J .LT.CLIFE  ) IERR-  IERR  + 10 

ierr^'T  implies  that  the- cycleTIfe  of  the  attitude" and  control 

THRUSTERS  IS  TOO  SHORT.  IERR=S  10  IMPLIES  THAT  THE  CYCLE  LIFE  OF 
THE  TRANSLATIONAL  THRUSTERS  IS  TOO  SHORT.  TERR=  11  IMPLIES  THAT 

"The  cycle  lives  of  both  thrusters  are  too  short  ~~ 

PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  BIPROPELLANT  ISOLATION 
VALVES  AND  FILTERS"  

RHOF=  .032 

RHCO-  ‘ .054"  

WD0TF=(3.*ACTHST  + 2.*TTHST>/(260. *( l.+XHR )) 

WPOTQc  WDQTF*XMR 

CDAISF=  WDOTF/SQRT (50.*KH0F7I  .29L-3 ) 

CDAISO=  WOOTO/SQRT (5Q.+RHQQ/1.29E— 3 ) 

RMAXF=  50./W00TF**2 

* RM AXO=  50./WD0fC**2  1 1 


SET  LAST  EQUIPMENT  INDICES 

J3t=  IDBQ4) 

J4F—  108(14) 


00023170 

00023180 

00023190 

00023200 

00023210 

00023220 

00023230 

00023240 

00023250 

00023260" 

00023270 

00023280 

00023290 

00023300 

00023310 

00023320 

00023330 

00023340 

00023350 

00023360 

00023370 

00023380 

00023390 

00023400 

00023410 

00023420 

00023430 

00023440 

00023450 

00023460 

00023470 

00023480 

00023490 

00023500 

00023510 

00023520 

00023530 

00023540 

00023550 


-153' 


ISN  0692 
ISN  0693 
ISN  0694 
ISN  0695' 
ISN  0696 
ISN  0697 
ISST  0698 


ISN 

ISN 

ISTT 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 


-O  ISN 

ISN 
ISN 


0699 

0700 

0702 

0703 

0704 
0706 
0708 
0710 
0712 
0714 
0716 


0718 

0720 

0722 


J5E=  IDBC15) 

J6E=  IDBC15I 
_ J7E=  IDB (4) 

'J8E=  IDE  ( 2 ) 

J9E=  ID6 (16) 

J10f  = 10  BI16) 

J11E«'IDB(5> 

DETERMINE  HARDWARE  INDICES 
DO  66  1=1,9  ' 

IF(IPICm.NE.O)  GO  TO  67 

66  CONTINUE' 

GO  TO  68 

67  IFCITER.NE.O)  GO  TO  69 
IF«IPIC(1).LT.J36)  GO  TO  70 
IF(IPIC<2>„LT.J4E)  GO  TO  71 
IF(IPIC(3).LT.J5E)  GO  TO  72 
IF<IPIC(4).LT.J6E)'  GO  TO  73 
IF < IP1C( 5 } *LT - J7E1  GO  TO  74 
IF<IPIC(6).LT.J8E>  GO  TO  75 


lF(IPlCm.LT.J9E)  GO  TO  76 
IE(IPIC(8 J.LT.J10E)  GO  TO  77 
IFUPICI9KLT.J116)  GO  TO  76 


NO  ACCEPTABLE  COMBINATIONS 


00023560 

00023570 

00023580 

00023590 

00023600 

Q0j023610_ 

00023620 

00023630 

00023640 

00023650 

00023660 

00023670 

00023680 

00023690 

00023700 

00023710 

00023720 

00023730 

00023740 

00023750 

00023760, 

00023770 

00023780 . 

00023790 . 

00023800 

00023810 

00023820 

00023830 

03023840 

00023850 

00023860" 

00023870 

00023880 

00023890  ■ 

00023900 

00023910 

00023920 

00023930 

00023940 


00023950 

00023960 

00023970 

00023980 

00023990 

00024000 

00024010 

00024020 

00024030 

00024040 ' 

00024050 

00024060 

00024070 

00024080 

00024090 

00024100 

00024110 

00024120 

00024130 

000214140 

00024150 

00024160 

00024170 

00024180 

00024190 

00024200 

00024210 

00024220 ' 

CO 024230 

00024240 

00024250  ~ 

0002.4260 

0002-4270 

00024280 

00024290 

0b024300 

00024310 

00024320 

00024330 


155 


00024340 

00024350; 

_ 00024360 

00024370” 

00024380 
_ _ 00024390 

00024400' 
000244X0 
„ 00024420 

00024430 
00024440 

00024450 

00024460’ 

00024470 

00024460 

00024490 

00024500 

00024510 

00024520 

00024530 

00024540 

00024550 
00024560 
00024570 
”00024580 
> 00024596* 

_ 00024600- 

”00024610 

00024620 

00024630 

00024640 

00024650 

00024660 

00024670 

00024680 

00024690 

00024700 

00024710 


00024720 


.951*6, 


0806 

0807 

0808 

0809 

0810 
0811' 
0812 

0813 

0814 

0815 

0816 
0817" 
0818 

0819 

0820 
0821 
0822 

0823 

0824 
082*T 

\ 08  26 
0827 
,0828 
0829 
6830 

0831 

0832 

0833 

0834 

0835 
.0836 
0837 

08.38 

08.39 
0840 


J10=  IPIC(8) 

. Jll=  IPI£(9> 

£0  TO  79  ..  . , 

76  CONTINUE 

_J3=  IDJ>(13J  + 1 

J4~  108(13)  +1" 
J5=  rDB(!4)  + l 
J6=  IDJU14)  + 1 
J7=  Top (3)  ♦ i “ 
J8-  IDE ( 1 J ♦ 1 
J9=  IPIC (7)  + 1 
J10=  IPIC ( 8 i 
Jll=  IP1C(9) 

GO  TO  79  

77  CONTINUE 

J3=  JDBC  13)  ♦ l 
J4-  I0B(13|  ♦ 1 
J5==  lDb  ( 14)  + 1 
J6^  IOB (14)  + 1 
J7=  IDB  ( 3 )'  + 1~ 
J8=. IDB ( 1 ) + I 
J9=  I0B(15)  + I 
J10=  IPIC ( 8 ) + I 
JI1=  IPIC ( 9 ) 

GO  TO  79 


78  CONTINUE 

J3=  IDB (13*  + I 
J4=  108(13)  + 1 
J5~  ID8 ( 14 ) ♦ 1 
J6=  IOB ( 14)  + 1 
J7=  IDB( 3 1 ♦ I 
j8=  IDB ( 1 ) + 1 
J9-  IDB ( IS)  + 1 
J10=  rDB(15)  + i 
Jll=  I PIC ( 9 ) + 1 


00024730 
00024740 
00024750 
00024760 
00024770 
00024780 
""  00024790 
00024800 
00024810 
0002.4820' 
00024830 
66024840 
00024850 
00024860 
00024870 
00024880 
00024890 
00024900 
7 00024910 
00 02 4920 
00024930 
00024940 
00024950 
■ 00024960 
00024970 
00024980 
00024990 
' 00025000 
00025610 
00025020 
00025030 
\0002i>040 
00025050 
00025060 
00025076 
00025080 
' 00025090 
00025100 
00025110 


157' 


ISN  0841  79  CONTINUE  T “ ~~ 

* C 

f C THE  HARDWARE  INDICES  ARE  SET 

r~  ' c ' ‘ ““ 


ISN  0842 


r 

f 

ISN 

ISN 


0844 

0845 


ISN 
IS  fl 

isN 

W 

ISN 

ISN 

Isf 

ISN 

rsN 

~'f>~  TsFT 


0846 

0847 
0846 


0849 

0850 

0851 


0852 

0853 

0854 


0855 


I$N  0856 
ISN  0857 
TsFT  0858 
ISN  0859 
ISN - 0860 


ISN  0861 

? 

ISN  0862 


C 

c 

c 

c 


80  IE  ID A TAB  I 7»  J3 ) .LT.COAISF.OR.DATAB ( 7 * J4) . lt#cdaiso .OR. OATAB (7 » J5 ) . 
* ^T.RMAXE.qP.nATAb(7tJ6).GT-RMAXp)  GO  T0_81 

FUEL  CIRCUIT  AND  OXIDIZER  CIRCUIT  ISOLATION  VALVES  AND  FILTERS 
ARE  ACCEPTABLE 

DLPISF=  ( 1 «29t— 3/RHCiF  )*(  WDOTF/D ATA&C 7» J3 1 ) **2 
DLPISO=  U.29E-3/RH00>*lWDQT0/DATABI7tJ4n*»2  


DLPFI  F=  DATa¥(7*  J5)VwdOTF 
DLPFIO=;  DA  TAB  ( 7» J6)*WD0T0 
ICHOSE  ( 3)  = 0ATAB{1,J3) 


ICHOSE (4 )=  DATAB 1 1 » J4) 
ICHDSE (5 1 = DATAbCl,J5) 
ICHQS6<6 l-  DATAb ( I * J6 ) 


IPICCl)=  J3 
IPIC (2>=  J4- 
IPICC3)=  J5 


C 

C 

C 


I PIC (41=  J6  " ’ 

.„LfteL_IMIN  ARY  C A LC  U L AT  IONS  F OR  _ SELECT  I ON  OF  PNEUMATIC  RE  GULA  TOR 


PTI=  DATABCStJl) 

PFT~  PTI  + 2.»DLPISF  * 2»*DLPFIF 
PQT=  PTI  + 2.*DLP1S0 "V  2o*DLPFI0 
PREG=  AMAXHPFT.POT) 

WDOTPR=  1.05*1. 02E-7*26.*PREG»(WD0TF/RH0F  + WDOTO/RHOO) 


CDARFG=  WOOTPR/SgRT(5*>00.*PR£6/I.27E4) 

1F(PREG«LT  »PATAB(  8»  J7I  «UR»PREG .GT»DATA8C  9 1 J7)  >OR»DATAB( 7»  J7)  .LT. 
* CDAREG)  GO  TO  81 


C 

C REGULATOR  IS  ACCEPTABLE 

' F c 

ISN  0864  ICHOSE 17 )=  0ATAB(1,J7> 

ISN  0865  ipiC(5}=  J7_  


00025120 
00025130 
00025140 
'00025150 
00025160 
00025170 
00025180 
00025190 
00025200 
000252ip_ 
0002522(f 
00025230 
00025240 
00025250 
00025260 
00025270 
00025280 
00025290 
00025300 
00025310' 
00025320 • 
00025330 
00025340 
00025350 
00025360  ' 
00025370 
00025380, 
00025390 
00025400 
00025410 
00025420 
00025430 
00025440 
00025450 
00025460 
00025470. 
00025480“ 
00025490 
00025500 


-p  • — ■ 

ISN  0866 
ISN  0867 
ISN  0868 


ISN  0870 
ISN  0871 


C' 

C 

C 


ISN  0872 
ISN  0873 
■f~  ISN  0874 
-TSN  0875 
S'.  ISN  0876 


~ISN  0877 
ISN  0878 
ISN  087* 

TTsKToaeo 

ISN  0881 


J<  • 


ISN  0883 
ISN  0884 
T5?T~ 0885 
ISN  0886 


ISN  0887 


C 

C 

C 


c 

c 

c 

~c 


c 

c 


c 

c 


PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  PNEUMATIC  ISOLATION 
VALVE 

RHOPR*  i *0<£fc*“7*3000  • 

COAISQs  WDOTPR/SQRT<  200.*RH0PR/1.29fc-3) 

IFfDATABC  7t  JLI.LT  .CDAISO)  GO  TO  81  ’ 

PNEUMATIC  .ISOLATION  VALVE  IS  ACCEPTABLE 

ICHOS  t ( 8 ) = DA  1 AB 1 1 , J8 ) 

IP IC (6 )=  Jfc 


00025510 

00025520 

000  25530^ 

00 025540 

00025550 

00025560 

0002.5570 

00025580 

00025590 


00045600 

00025610 

00025620 


PRELIMINARY  CALCULATIONS  FOR  SELECTION  OF  FUFL  TANK, OXIDIZER 
TANK  AND  PNEUMATIC  TANK  ’ “ 


WP=  l.l*T0T!MP/260. 
WF=  WP/C1.  + XMR ) 


VF-  WF/RHOF 
VFT=  1.1*VF 
HO?  WF*XMR 


" ACSWP=  WF  ♦ "WO  

V0=  WO/RHOO 

vot=  i.i*vo - j 

VPRT~  PFTMVFT  * VUT)V(3"000r  - 2.*PFT7 


00025630 

00025640 

00025650 

00025660 

00025670 

00025680 

00025690 

00025700 

00025710 


00025720 

00025730 

00025740 


^11  *lKT“ VF T.  OR  .DATA B ( 7,J9)  .J_T  . PFT.OR.DATAB  ( 6,  J 10 ) . LT. 
* V0T«0R.DATAB<7 , JIO)  .LT .POT. OR. DATAB  |6,Jii  ) .LT.'VPRTI  GO  TO  81 

— -^El-  OXIDIZER  TANK  and  pneumatic  TANK  ARE  ACCEPTABLE 


00025750 

00025760 

00025770 


00025780 

00025790 

00025800 


ICHQSE  (9 ) = DATAbU»J9) 

I CHOSE ( 10  J = DAT  At (1, J10 ) 

icHosrufy=  DATABtiTjTif 

TNKWT=  DATABt 23, J9)  ♦ DATaB(23, J10) 


SIZE  plumbing  and  connectors 


00025810 

00025820 

00025830 

00025840 

00025850 

00025860 


_£LWAI^=.  J9  ) + DAJAU 23,  J10 ) + DATAB<  23,  J U ) ) 


-.00025870 
00025880 
•-  00025890 


ISN  0888 
ISN  0889 
I SN  0890 
ISN  0891 
ISN  0892 
ISN  0893 
ISN  0894 

ISN  0895_ 

ISN  0896 
ISN.  089? 
ISN  0698_ 
ISN  0899 
ISN  0900 
ISN  p90l 
ISN  0902 
ISN  0903, 
ISN  0904 
ISN  0905 
ISN  0906 
ISN. 0907 
ISN.  09, 08 
- ISN  0909 
•S  ISN  0910 
ISN  0911 ~ 
ISN  0912 
ISN  Q913 

ISN  0914 


ISN  0915 
ISN  0917 
ISN  0919 
ISN  0921 
ISN  0923 
ISN  0925 
ISN  0927 


IPICm*  J9 
I P IC  f 8 J — J10 

IPIC (9)—  Jll  ' ~ 

N ( 12 ) b KK 
_ Nrm=  ri 
NU4)=  jj  ” 

N { 1 } = Ji 
N(2J  = J2 
N ( 3 ) - J3 
N(4»  = J4 

My  = 

N(6)  = J6  “ --- 

Nf?>  = J7 
N<8)  = J8 

Nf9l=  J9  

N<10)=  JIO 
_____  NU1)=  Jll 

DO  802  1=1,14  : 

J=  Nil) 

«I=  HT  ♦ NCHOSE  ( I ) *DATAB  < 23.  J > 

VQL=  VOL  + NCHOSE (I)*0ATA87247j)  ' 
PL=  PL  + NCHQSFfI )*DATAB<16,J) 

PLMIN=  RLMIN  ♦ NCHOStt 1)*DATA8{ 18,  J) 

802  CONTINUE  ' * " “ “ * 

WT~  WT  ♦ ACSWP  + PCMATE 
RETURN  

81  CONTINUE 
C 

C HARDWARE  SELECTION  NOT  ACCEPTABLE 
C 

IF< J3.LT . J3fc>  GO  TO  82 

IF( J4.LT.J4E)  GO  TO  83  " 

IFfJ5.LT.J5E)  GU  TO  84 

IF(J6.LT.J6E)  GO  TO  85 

IFf J7.LT. J7E)  GO  TO'  86  ’ ~ 

IFfJ8.LT.J8E)  GO  TO  87 
If  U9#LT. J9E L GO  TO  88 


00025900 

00025910 

1 00025920 

00025930 

00025940 

00025950 

00025960 

00025970 

. _ 00025980 

00025990 

00026.000 

00026010 

“ 00026020 
00026030 

* 00026040 

00026050 

00026060 

00026070 

00026080 

00026090 

00026100 

00026110  ' 
00026120 

. _ 00026130 

00026140 

00026150 

00026160 

00026170 

00026180 

00026190 

INCREMENT  HARDWARE  INDICES  00026200 

0002  6210 

00026220 

00026230 

00026240 

--  - - - - 00026250 

00026260 

00026270 

00026280 


ISN  0929 
ISN  0931 


C_ 

C 

c 


IFCJ10.LT. J10E)  GO  TO  89 
IF( J11.LT.J11E)  GO  TO  90 


b 


NO  ACCEPTABLE  HARDWARE 


O' 

o 


ISN  0933  , 

ICHOSE ( 1 ) = 

ISN  0934 

C 

ISN  0935 
ISN  0936 
ISN  0937 
ISN  0938 

82 

83 

RETURN 

J3 - J3  + 1 
GO'  TO  "80 
J3=  ID6( 13) 
J4=  J4  ♦ 1 

4- 

l 

ISN  0939 

60  TO  80 

ISN  0940 

84 

J3 ~ IQBC13) 

l • 

ISN  0941 

J4=  I0B113) 

♦ 

l 

T5N  0942 

J5=  J5  ♦ 1 

ISN  0943 

GO  TO  80 

ISN  0944 

85 

J3=  IDB (13) 

♦ 

1 

ISN  0945 

J4=  TDB(13) 

4- 

l 

ISN  0946 

J5=  IDB( 14) 

+ 

i 

ISN  0947 

J6=  J6  + 1 

IW  0948 

GO  TO  80 

ISN  0949 

86 

J3=  IDB(13) 

+ 

i 

ISN  0950 

J4=  108(131 

4* 

l 

fSFT  0951 

J5=  IDB(14) 

l 

ISN  0952 

J6=  IDB( 14) 

♦ 

l 

ISN  0953 

J7=  J7  + 1 

ISN  0954  “ 

GO  TO  30 

- 

ISN  0955  - 

87 

J3-  IDB ( 13 ) 

1 

ISN  0956. 

J4=, IOB{ 13) 

+ 

l 

ISN  0957 

J5~  IDB (14) 

4- 

l 

I$N  0958 

J6-  IDB (14) 

4- 

l 

ISN  0959 

J7=  IDB ( 3 ) 

*■  1 

ISN  0960 

J8=  J8  + 1 

ISN  0961 

GO  TO  80 

ISN.  0962 

68 

J3=  IDB( 13) 

+ 

l 

IW0963 

J4=  IDB (13) 

4- 

l 

ISN  0964 

J5=  IDB (14) 

4* 

i 

ISN  0965 

J6-  I0B(14) 

■4" 

l 

00026290 
00026300 
00026310 
00026320 
00026330 
00026340 
00026350 
00026360 
00026370 
00026380 
00026390 
00026400 
00026410 
00026420 
00026430 
00026440 
00026450 
00026460 
00026470 
00026480 
00026490 
~ 00026500 

• 00026510 

. 00026520. 

00026530 
- 00026540 
00026550 

* 00026560 
00026570 
■66026580 
u 00026590 

00026600 
00026610 
00026620 
00026630 
' 00026640 
00026650 
00026660 


00026670 


ISN 

0966 

J7=  ID8I3)  ♦ 1 

isn 

0967 

J8=  IDBMJ  + 1 

ISN 

0968 

J9=  J9  ♦ 1 

ISN 

0969 

GO  TO  80 

ISN 

0970 

89  J3  = IDB (13}  ♦ 1 

ISN 

0971 

J4=  IDB t 13)  * 1 

ISN 

0972 

J5=  IDB t 14)  + 1 

ISN 

0973 

J6=  IDB ( 14)  + 1 

- • ISN 

0974 

J7=  IDB (3)  + 1 

ISN 

0975 

J8=  IDB  (1 ) '+  1 

ISN 

0976  ’ 

J9-  IDB (16)  + l' 

ISN 

0977 

J10=  J10  + 1 

TsJT 

0978 

r GO  TO  BO 

ISN 

0979 

90  j3=  1DB( 13)  ♦ 1 

IS?N 

0980 

J4=  IDB(i3)  + 1 

ISN 

0981 

J5  = IDB ( 14)  + 1 

ISN 

0982  ' 

J6=  10B(14)  + 1 

ISN 

0983 

J7=  IDB ( 3 ) * 1 

Isn 

0984 

J8=  IDB ( 1 ) * 1 

ISN 

0985 

J9=  IDB < 15)  + 1 

ISN 

0986  ‘ 

J10=- IDB ( 15)  ♦ 1 

■f  isIn 

0987 

Jll=  Jll  + 1 

^ ISN 

0988 

GO  To  80 

I—* 

C 

'f 

0989 

END 

♦options  in  effect* name- main>opt=oi,linecnt=411>$ize  =ooook » 


^OPTIONS  IN  EFFECT*  SOURCE ,tbCDIC ,NOLIST»NODECK, L0AD»N0HAP»N0£D1I , ID, NOXREF 


00026680 
00026690 
00026700 
00026710 
00026720 
00026730 
00026740 
00026750 
00026760 
00026770 
00026780 
00026790 
00026800 
00026810 
00026820 
00026830 
00026840 
00026850 
00026660 
00026870 
00026880  ' 
00026890 
00026900 
00026910 
00026920 


♦STAT1STI CS*~  SOURCE  STATEMENT^ '=13  PROGRAM "SI ZE”=  12634  — 

♦STATISTICS*  NO  DIAGNOSTICS  GENERATED 
******  END  OF  COMPILATION.  ****** 


0S/360  FORTRAN  H 


^UEVEL  21.7  < JAN  73  ) 


ISN  0002 


ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN' 

ISN 


0003 

0005 

0006 


0008 

0009 

0010 
0011 
0012 
0013 


ISN 

ISN 


0014 

0015 


%o- 

i 


O' 

fo 


ISN 

ISN 

ISN 

"T5N 

ISN 

isn 

iW 

ISN 


0016 

0018 

9019 


0021 

0022 

0023 


COMPILER  OPTIONS  - NAML=  MA l'N.OP f=6lVLINECNT=4r, SlZE^OOOdK; 

iMfn  oki SoVR9«!  f BCD1C»nuLIST  ,NUDECK, LOAD, NOMAP  »NOEDI 1 , ID  ,N0XR£F‘ 
r U NC 1 1 ON  GAM ( X ) 

IF  ( X.GT . 1 F~g6  TO  2 — ' — ■ - 

Z=X  ' 

1 If  IZ.GT.0.)_  GO  TO_3  __ 

00  TO  1 

2 Z=X-1. 

3 Ti=Z+.5  / • • • ’ “ •• 

TZfcTl+5.  . 

Tl=TZG**Tl  ... 

T'i=£XPf“TZG)*Tl*zV50662827465  ‘ 

GAMZ  = T1 * ( l . +76 . 180091 73/  ( Z+i.)  -86.50532033/  ( Z+Z . ) +24  .01409 822/ 
:|3173951b/<2+4.)  +.12 Q858003E— 2/ ( Z+5 . )— . 5363 62a-5/(Z  +o.) 

4 GAMZ^GAMZ/Z 
IF  (Z.EQ.X)  GO  TO  5 • 


000000 10 


0024 

0025 


z=z-i. 

GO  TC  4 
5 GAM=GAMZ 
RETURN"  ■ ‘ 
' END 


00000020 
. 00000030 
00000040 
' 00000050 
00000060 
00000070 

dooooo‘ed~ 

00000090 
00000100 
0000 Olio 
00000120 
>00000130 
“00000140 
00000150 
00000160 
00000170 
00000180 
00000190 
"00000200 
00000210 


♦OPTION'S'  IN  effect*  “ 
♦OPTIONS  IN  EFFECT* 


N,AME=  MAIN,0PT=01,LlNECNT=4i,  SIZE=OOOOK,~ 


_ SPVkC_L  * EBCDIC  , NQL  1ST  , NODE  CK  , LOAD,  NOMAP,  NQE01T,  ID»NOXR£F 
♦STATISTICS*  SOURCE  STATEMENTS  - 24  ,PROGRAM  SIZE  = 602 


v * ; 


♦STATISTICS*  “NO  DIAGNOSTICS  GENERATED 
*f**f_*  ~.tNP  OF  COM  P I LA  TI 0 N_  ****** . 


125K  BYTES  OF  CORE  NOT'  USED 


|t9T-< 


LEVEL  21.7  ( JAN  73  ) 


DS/360  FORTRAN  H 


vO 


COMPILER  OPTIONS  - NAME=  MAIN,0W'01 , LINECNT=4l  ,SIZE=OOOOK*  ' 

SOURCL  t EBCDlCtNOLlST , NODECK, LOAD, NOMAP ,NOEDIT , ID , NOXREF 


C 


ISN 

0002 

functiow'cerfTyT 

ISN 

0003 

DIMENSION  8(28) ,A(26) ,AA(1/) , 

6B(19) 

ISN 

0004 

IF (Y.GT.4.0100  TO  2 

ISN 

0006 

DATA  AZERO 

/ 3.88730365/ 



ISN 

0007 

DATA  A ( 1 ) 

/-l. 38163142/ 

ISN 

0008 

DATA  A (2  ) 

/ .647316404/ 

ISN 

0009 

DATA  A (j) 

/-. 305931024/ 

ISN 

0010 

DATA  A(4) 

/. 13867974 72/ 

ISN 

0011 

DATA  A (5) 

/-. 05924745/ 

ISN 

0012 

DATA  A( 6 ) 

/. 023691751/ 

ISN 

0013 

. DATA  AC 7) 

/-. 00884736263/ 

ISN 

0014 

DATA  A<8) 

/ .00308566171/ 

ISN 

0015 

DATA  A(o  1 

/-. 001006386351/ 

ISN 

0016 

data  auo) 

/. 000307546328843/ 

ISN 

0017 

DATA  A ( 1 1 ) 

/— • 88261983E— 04 , 

/ 

ISN 

0016 

DATA  A ( 12 ) 

/ .23645096E-04 

/ ' 

ISN 

0019 

DATA  A(  13  ) 

/-.60791002E-05 

/ 

ISN 

0020 

DATA  A ( 14) 

/ . 14e>597217k— 05 

/ 

ISN 

0021 

DATA  A ( 15 ) 

/— • 0335159’.j3£:— 05 

/ 

ISN 

0022 

DATA  A{ 16 ) 

/ .0072805796—05 

/ 

ISN 

0023 

DATA  A( 17) 

/-. 00 150579 IE-05 

/ 

Tsft 

0024 

DATA  A (18) 

/" .2970947426—08 

/ 

■ 

ISN 

0025 

DATA  A (19) 

/— .560212739E— 09 

/ 

ISN 

0026 

DATA  A(20) 

/ .101131623E-09 

/ 

TsFT 

0027 

DATA  A (21) 

/-• 175095046—10 

/ 

ISN 

0028 

DATA  A(22) 

/• 0291038136— 10/ 

ISN 

0029 

DATA  A (23 ) 

/— .46532646— 12 

/ 

ISN 

0030 

DATA  A( 24) 

/ .71648156-13 

/ 

ISN 

0031 

DATA  A (25) 

/-.1063749E-13  . 

/ 

ISN 

0032 

DATA  A(26 ) 

/ . 152467E— 14  . 

/ 

ISN 

0033 

DATA  8(27) 

/ .0 

ISN 

0034 

DATA  B(28) 

' / .0 

/ 

ISN 

0035 

DATA  A AZERO 

/ 1.9/0705272/ 

ISN 

0036 

DATA  AA(1) 

/-. 01433 9740271 775/ 

ISN 

0037 

DATA  A A( 2 ) 

/ .00029736199220261/ 

ISN 

0038 

DATA  AA ( 3 ) 

/— .98035 160E-05/ 

« G0000220_ 
'60000230 
00000240 
00000250 
00000260 ' 
00000270 
00000280 
00000290  ' 
00000300 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380" 
00000390 
00000400 
' 00000410 
00000420 
00000430 
00000440 
00000450- 
00000460 
00000470 " 
00000480 
00000450 
00000500 
00000510 
00000520 
00000530 
00000540 
00000630 
00000640 
00000650 
00000660 


ISN 

ISN 

ISN 


ISN 

ISN 

ISN 

TTn 

ISN 

ISN 

ISN 

ISN 

ISN 


0039" 

0040 

0041 

0042 

0043 

0044 
0045' 
0049 

0047 

0048 

0049 

0050 


vO 

I 

►— 

O' 


ISN 

ISN 

ISN 

"TSfiT 

ISN 

ISN 

TsFT 

•ISN 

ISN 

TSn 

ISN 

ISN 

ISN 

ISN 

ISN 

T5?T 

rsN 

ISN 


0051 

005^ 

0053 

0054" 

0055 

0056 


0057 

0053 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 


ISN 

ISN 

ISN 


0069 

0070 

0071 


DATA 

AA  ( 4 > 

/ .04331334E-05  / 



DATA 

AA  ( 5 ) 

/-.23o2150E-07  / 

data 

AA  ( 6 > 

/ -.l5l5,49t>E-08  / 

data 

AA<7> 

/-•U064939E-09  / 



DATA 

AA  ( 8 ) 

/ •90425901E— 11  / 

DATA 

AA  ( 9 ) 

/-.80947054E-12/ 

DATA 

AAUO) 

/ . 7653856E-la/ 

* ' “ .... 

DATA 

A A { 11) 

/-.0179I8E-14/ 

DATA 

Am (12) 

/ .90715E— 15 

/ 

DATA 

AA ( 13 ) 

/-.10646E-15 

/ ’ 

DATA 

AA ( 14) 

/ -013I5E-15  - 

/ 

DATA 

-AM.15.L_ 

/-.O0I7OE-I5 

/ 

DAI  A 

A A ( 16) 

/ •000236— 15 

/ 

data 

AA( 17) 

/-•00003E-15 

/ 

. DATA 

FiB(l8). 

/ .0 

/ 

■ "’•■“data 

”B8  ( 19)" " 

/ .'o' 

C0£FF=4.*X*X-2. 

"00  1 1=1 ,26  " " " * 

J=27— 1 

B ( J) -COE  FF*b ( J + I )— B < J+2) +A  ( J ) 


BZ£RO=CQ£FF*B  ( 1 )-T(  M+AZERO 
CERF=X/2.*(B2ER0-B(2) ) 

RETURN! 

"2  X=4,/Y  ‘ ~ ‘ . 1 — 

C0EFF=4.*X*X-2. 

DO  3 1=1,17 

j=18— I " ’ " “ ' ■ — 

3 BB ( J) =COEPF*BB ( J+I )— BB  < J+2 ) +AA(  J) 
BBZERO=COEFF*BB  < 1)-BB  ( 2K+AAZERO 


r ^ T ^ F=  < B B ^ 0 “B B I 2 n / 1 2 . * Y>E X F C "Y * Y ) } *T5 6 41"8 9 5 b 3 54775 6" 
END 


♦OPTIONS  IN  EFFECT*  NAMt=  MAIN,0PT=01, LINEC«T=41,SIZE=0000K, 

*up  I IONS  IN  EFFECT*  " SOUKC  E , cbCOl  C , NOL I ST  NODfcCK  , LOAD , NO  NAP,  KOEDlf , ID  ,NOXREF 

♦STATISTICS*  SOURCE  STATEMENTS  = 70  , PROGRAM  SIZE  = 1040 


000Q0670 
00000680 
0G0G0690_ 
00000700 
00000710 
00000720 
00000730 
00000740 
OCir-00750 
00000760 
OOOOG770 
00000780 
00000790 
00000800 
0000081 0_ 
00000820 
00000821 
00000822 
00000823 
00000824 
00000825 


00000826 

00000827 

00000828 

00000830" 

00000840 

00000850 


00000860 

00000870 

00000880 

00000690 

00000900 

00000910 


♦STATISTICS*  NO  DIAGNOSTICS  GENERATED  — 

*™***_JM  QF^OMPIL^T^N  ♦****♦  „ : _____ 12 IK  BYTES  OF  CORE  NOT  USED 


O' 

tn 


LEVEL  21.7  ( JAN  73  ) 


0S/360  FORTRAN  H 


ISN  0008 
•f  ' ISN  0009 
- ISN  0010 
O' 

r^N  ooii“ 

ISN  0012 


* Ur*S,SK  » AU16)  ,ROLO( 

COMMON  /USER5/IVOLT, 

DIMf-NSiGN  N<5) ,NEGUIP«5> 
COMMON  /DbLQM/R< 31 ),NR(6 
?=)  »SAVRNW(31)  .RNtWUD.NM 


00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

00000971 

00000980 

00000990 

00001000 

ooooioio 

00001012 

00001013 

00001014 

00001015 

00001020 

00001030 


00001030 

3i ,60) ,Z(31),RD(31) »RDUH(31 ) ,SAVR ( 3100001040 
S A VMX ( 60 ) *CO_ST  ( 60 ) , OUM ( 2$63 ) 0000 1050 


c 

INTEGER  SAVMX, 

SAVNSR 

c 

C 

c 

T 

c 

C 

VARIABLES 

NSMX 

NSR 



SIZE 

* 1 

1 

INITIAL 
ORIGIN- 
CHANGE ’ 
EXT-*tC 
EXT-  C 

C 

c 

IP  TN 

1 

EXT— NC 

L 

JMIN 

1 

E XT— NC 

c 

JMAX 

" 1 

EXT— NC  " 

C 

C 

NR 

NCNSS) 

EXT-  C 

C 

c,  • 

C 

NMX 

“Nl*l$n 

EXf-NC 

» • « * 


OEFN 


MAX  HUM  SYSTEM  REDUNDANCIES 
CURRENT  NUM  OF  SYSTEM 
REDUNDANCIES'  “ 

RETURN  INDICATOR 
LOWER  LIMIT  ON  MODULE  NUM 
UPPER' LIMIT  ON  MODULE 


00001050 
00001060 
00001070 

00001080 

00001090 
00001100 
0000 11 10 
oooo i I 20' 

00001130 
00001140 
00001150 
00001160 
ooooii  70 


uwnti»  ’Lin*  i un  nuuuLC  mun  UUUUJUL  f U 

UPPER  XlMIT  ON  MODULE"  NUM"  "000 Oil’S 0“ 
CURRENT  NUH  OF  RfcDUNDANCIES  INOOOOlt90 
MODULE  J 00001200 
MAX- NUM  REDUNDANCIES’  I N MODU LEOOOO V? 1 0 
J ' OOOOli 


NO 

r 


-J 


c 

NT 

I 

EXT-NC 

LOOP  AND  OPtlON  PARAMETER 

OOOO 1240 

c 

DELH 

1 

EXT-NC 

TIME  INCREMENT 

00001250 

c 

ITRUNC 

1 

EXT-NC 

»*UM  OF  TIKE  POINTS 

00001260 

c 

R 

1 TRUNC 

INT 

RELIABILITY  FwC  FOR'  MODULE  j 

00001270 

c 

-ITRUNC  MMD  MODE 

0000 12 BO 

_c 

RDJLD 

ITRUNC 

_ 1 

EXT-  C 

PREVIOUS  VALUE  OF  SYSTEM 

00001290 

c 

RELIABILITY 

00001300 

c 

RNEW 

ITRUNC 

, INT 

SYSTEM  RELIABILITY  WITH  WITH 

A00D0I310 

c 

REDUNDANCY  ADDED 

00001320 

c 

RI 

ITRUNC 

FXI-  C 

SYSTEM  RELIABILITY  MATRIX 

00001330 

c 

*N!NSS  ) 

00001340 

c 

COST 

N(NSS) 

EXT-NC 

VALUE  OF  EXPENSE  OPTION  FOR 

00001350 

c 

• 

MODULE  J . 

00001360 

c 

RHO 

1 

INT 

DECISION  PARAMETER! 

00001370 

c 

ABS ( *NEW  - ♦OLD) /EXPENSE 

00001380 

c 

RHOTH 

I 

EXT-OIC 

LOWER  BOUND  FOR  RHO’ 

00001390 

c 

OLDRHO 

1 

INT 

previous  value  of  rho 

00001400 

c 

MMDOLD 

I 

INT 

PREVIOUS  MMD  VALUE 

00001410 

c 

MMDNEW 

1 

INT 

MMD  VALUE  WITH  A REDUNDANCY 

00001420 

c 

ADDED 

00001430 

c 

jsave 

I 

INT 

MODULE  WITH  LARGEST  VALUE  OF 

00001440 

c 

RHO 

"00001450 

c 

SAVRNW 

ITRUNC 

INT 

SYSTEM  RELIABILITY  FNC  WITH  A 

00001460 

c 

REDUNDANCY  IN  MODULE  jsavf 

00001470 

c 

SAVR 

ITRUNC 

INT 

RELIABILITY  FNC  FOR  MODULE 

00001460 

c 

JSAVE  WITH  A REDUNDANCY  ADDED 

00001490 

c 

SAVMMD  . 

1 

INT 

MMD  WITH  A REDUNDANCY  ADDED  INOOOOISOO 

c 

MODULE  JSAVE 

00001510 

c 

syslb 

1 

EXT-  C 

SYSTEM  WEIGHT  > 

00001520 

c 

SLBMX 

1 

EXT-NC 

MAX  SYSTEM  WEIGHT 

00001530 

c 

DATABCl.J) 

N(NSS) 

EXT-NC 

REDUNDANCY  WEIGHT  FOR  MODULE 

J00001540 

c 

I NO 

I 

INT 

LOOP  INDEX 

00001550 

c 

1 

1 

INT 

INDEX 

00001560 

c 

R FIX ED 

I 

EXT-NC 

INITIAL  RELIABILITY 

00001570 

c 

00001580 

_c_ 

SUBROUTINES 

CALLED! 

00001590 

c 

QSF  - 

INTEGRATION 

! BY  SIMPSON»S  RULE  !SSP) 

00001600 

c 

RIMOD- 

reliability 

' MODELS  CALCULATION 

00001610 

c 



* 



00001620 

ISN  0013 
ISN’0014 


v£> 

I 


O' 

rv> 


c 

c 

c 

c 

c 

Ti'o 

c 

c 

~c  " 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C ■ " 

c 

c 

c 

c 

c 

c 

c 

c 

r— 

c 

c 

c 

C 

c 


***  PROGRAM  INITIALIZATIONS  *** 


do  no  1*1, bo 

NR  { 3 )=0  ' 

***  USER  INPUTS  *** 

KEOPTf  EXPENSE  "oFFlON  INDICATOR 

.1  HEIGHT 

OTHERWISE  JCOST 

RFIXEDl  INITIAL  SYS  RELIABILITY  . 

syslb!  TniTial“weighi  Tpoundst  V 

SLBMX ( MAX  SYS  WEIGHT 

TRUNC ( MISSION  LENGTH  (HRS) 

Ttrunci  numop  tTme  POINTS  ” 7"  ; ‘ * 7 -rv  ■ 

i.su®L requirlments  option  . 

T'l  . ’ .AT  LEAST  ONE  "SUb— SYS  SPEC" 

OTHERWISE  NO  SUE-SYS  SPEC  \ «•  . ... 

ISPTT"  “ SINGLE  ~POiNT  FAILURE  REQUIREMENTS  OPTION  ' 

0 REQ  mot  in  EFFECT  ... 

OTHERWISE  REQ  IN  EFFECT 

SPECK  HMD  SYS  REQUIREMENT  (HRS)  . . .. 

STPECTK  ) ( “ R 1 1 TRUNC I _SUB-S  YS"  REQ  K=1  tNSS  ' 

DEFAULT  VALUE  IS  0.0 

S P ¥C (NSS + 1 ) ( RTlTRUNCrr  SYS  Rtg'  DEFAULT  VAlufc  IS’O.O  . 

N(K)  ( CUMULATIVE.  NUM  OF  MODULES  THRU  SUB-SYS_K  • 


..00001630 
00001640 
00001650 
’..00001660" 
00001670 
00001680 
0000 1690 ' 
00001700 
00001710 
00001720 
00001730 
00001740^ 
00001750 
00001760 
. 00001770 
00001780 
00001790 
■ 00001800 
0000  L8 10 
00001820 
00001830 
■ -.00001840' 
00001850 
00001860 
■ 00001876' 
•00001880 
. 00001890 
- 00001900 
00001910 
00001920 
00001930' 
00001*940 
00003  950_ 
00001960 
00001970 
00001980 
00001990 
00002000 
■ 00002010 


ISN  0015 
ISN  0016 
ISN  00 17" 
ISN  0018 
ISN  0019 
ISN  0020 

ISN  0021 

ISN  0022 
ISN  0023 
ISN  0024 


vO 

i 


CTn 

sO 


ISN  0025 
ISN  0026 
ISN  0027 


C 

C 


C 

C 

t 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

l 

c 

c 

c 

c 

c 

c 

c 


RFNL=0.7 

TRUNC=TPRIM*720.  ' 

ALPHA-T RtJNC/( l -ALUG(RFNL)  )**  .625) 
SPECl=CUNS*730. 

IIRUN031 

SYSLB=SATTWT 

NSS=5 

N( 1I=NEQUIP( I ) 

• 00  100'  1 =2  «NSS 

100  N(  1)=NE&UIP(I)+N(i-1) 

***  SIS  INPUTS 


set  miM  of  sue  sys 
accumulaif”  n 


*** 


acswp  < 
_EMU(_ 
£SIG{ 


MAXrXP ( 

NZERO( 

OCf 

TB 

DC. 

NCC 


INITIAL  lXPENOASL=S  WEIGHT  (POUNDS) 
tXPENDABLFS  INITIAL  MEAN  LIFETIME  (HRSJ^ 
EXPENDABLES  INITIAL  STD.  DEV.  (HRS.) 

MAX  MUM  Of "EXPENDABLE  INCREMENTS 
OR&ITAl.  MEAN  MOTION  (RAD/HRS) 

DUTY  CYCLE 

EATTEkV  TFMP  (OE-oREES  KELVIN) 

DEPTH  Of  DISCHARGE  ((BETWEEN  0 AND  IOG ) 
TOTAL  NUM  Of  CELLS  (ALL  BATTERIES) 


PARAMETERS  NFCLSSAR Y 6 Q COMPUTE  THE  CYCLtS/HP  FACtZiK 
NOW  FIXED  AT  A.Of-ll,  REF  MOOT L 5 

EMU=T'RUNC' 

FSTG=TRUNC/6. 

KAXLXP=20 


" 6bd0202( 
0000202) 
qp00203( 
00002031 
OOOQZOAf 
0000205C 
0000205) 
OOOC206C 
000020  7C 
C00020fcC 
00002081 
0000209C 
00002100 
0000211C 
00002120 
AP  00002136 
0000214C 
AP  _ 00002150 

0000216(3 
AP  00002170 
00_002_180 
AP  60662196 
00002200 
AP  00002210 
00002220 
OTHEROOOO  22-30 
00002240 
OTHEr666022  5O 
00002260 
0THEP.00002270 

666622  RO" 

OTHER 0000 2290 
. _ 00002300 

SEC  66062310 
00002320 
00002330 
00002340 
000 023 SO 
00002360 


ISN  0028  ~ 
ISN  0029 


C 

' ' c“ 
> . , c 

c 

c, 

ISN  0030 

c 

ISN  0031  


. c 

isr£0032 

~ c 

ISN  0033 


c 

ISN  0034 

. c 


• C ' 
c 

‘ 

. - c“ 

ISN  0035 
ISN  0C>36_  _L 

, - - c"“ 

i.SN  0037 

ISN.  ,0038  130 

ISN  0039 
ISN  0040 


ISN  004' l 
ISN  0042 
ISN  ,0043 
ISN  '0044  ' 

..  C 

I$n:.0045_ 


DC=.l  ' ~ 

TB=TBl+273. 


***  FIXEt  CONSTANTS  *** 


LAMS=120. 

‘“'RHOi  =0.00001  ‘ , • 

-RHC2_=0.1  ' 

DELHU=2190.  , ' > ■ *. 

, 0EL‘sTG=365.  . “ 1 : 


‘ SFWSF/SWlfCrt  FAILURE’ RaTE. 

* i.  ' j * 

PAYOFF  THRESHOLD,  *(TRUNC) 
PAYOFF  THRESHOLD,  MHO  , 
,€XP“£i^DA'BL£S  LIFE  1NCR. 
EXPENDABLES  STD.  DEV.  INCR.  .. 


***  SYS  PARAM  SPECIFICATION  *** 


• «i  < 


;•  JM-1N=N(2  > + l 
JMAX=N (NSS ) 

00  130  I.=r,6- 
ZJ  I i -DATA b(I  ,JM1N) 
N2=NCH0SE(JMIN)  ~ 
DO  140  J=JHIN,JMAX 


R-SHIFT  NCHOSE  AND  COLUMNS  OF 
DATAfa^BY  l BEGINNING  KITH  THE 
THIRD  SUB-SYS  ' 


INITIALIZE  


H?itfCNOSFTJ+lT 
, NCHOSE ( J+l ) =NZ 
,NZ=NY  . 

DO  140  I=l,o 

R(.I  )_=DATAb(I,  J+l ) 


SHIFT  NCHOSt;, 


SHIFT  DATAB 


00002370 
00002375 
■00002380 
7 00002390 
000.02400 
00002410 
- 00602420 
00002430 
..00002440 
. 00002450 
00002460 
00002470 
■ 00002480 
00002490 
00002500 
00002510' 
00002520 
.00002530 
"00002540 
00002550 
0000,2560 
.'66002570 
00002580 
0000259 Q_ 
0060 160© 
.00002610 
,';060  02620 
0000-2630 
00002,640 
■00002650 
00002660 
00002670 
9,0.002680 
00002690 

60002790 

00002710 

60062720 

0660273.0 

'.OOP  6 2740 


-171 


“ISN  0046 
ISN  0047 
ISN  0048 

ISN  0049 
ISN  0050 
ISN" 0051 
ISN  0052 
jSN  0053 
ISN  0054 

ISN  0055 
ISN ' 0056 

ISN  0057 
ISN  0058 
ISN  0055 


ISN  0060 
ISN  0061 

ISN  0062 

I SN  0064 
ISN  0065 1 
ISN  0066 
1 SN  0067 

ISN  0068 
ISN  0069 
ISN  0070 
ISN  0071 

ISN  0072 
ISN  0073 
ISN  0074" 

ISN  0075  _ 


OATABU  *3+1  j=Z(I  ) 

2 ( 1 1 =R  < 1 1 

140  CONTINUE 

c 

DATAB11  ,JMI*)=3.*UCSWP+TNKWT) 
Da1Ao(2»JMIN)=4. 

0ATAb(3» JM1N )=EMU 
0ATAB(4,JM1N}=ESIG 
DATAb ( 5 » JMIN )=DfcLMU 
DATAd(6, JMlN)=ttLSl6  * 

C 

NMXIJMIN)=MAXE.XP  . 

SA VMX ( JMIN) ^NMXC JMIN) 

C 

, 00  ISO  K=2tNSS 

150  ' N(K)=N(K)  + i 
JMAX=JMAX+1 

C _ _ __  ‘ _ 

c ' 

DO  160  J=1 » JMAX 
M0DL=INT(DATA&(2» Jl+.l ) 

c : 

If  (MODL.fQ.4)  GO,  TO  160 
C 

NMXt J)=0ATA&I6,J j + .l 
NMXt J)=NMX( J)-NCHOSE(J) 

j SAVMX  (J ) =NMX  ( J ) 

GO  TO'  ilb 1, 152, 153,160,155),  MODL 
C 

151  DATA^4,J)  = LAMS*1.0Er09 

DAT  AB  ( 3~*  J ) =DATAB  (3  * J ) *1  .Ofc— 09 
DATABI6, J)=DC 
_ GO  TO  160 

c " , 

152  0ATAB(3,J  )=DATA6(3,jm.0fc-09 
DATAB 1 4 , J ) =D A T A ft  < 4 , J ) *i . 0t~09 

GC  TO-  160 
C 

J.53  DA1AB16,  J)=NC/NCHOSE  { J) 


00002750 “ 

00002760 

00002770 

INSERT  EXPENDABLES  PARAMETERS  00002780 

...  00002150 

00002800 
00002810 
00002&20 
00002630 
00002840 

SET  MAX  NUM  OF  REDUNDANT  ELE.  0*002,860 

00002870 

000028,80 

RESET  NtK)  00002890 

00002900 

00002910 

00002920 

SWEEP  DATAB  AND_COMPUTE  MODEL  00002930_ 

PARAMETERS  ' " ' 00002940. 

0000295.0 

00002960  > 

CK  FOR  MODtL  TYPE  4‘  GOQOc.VtO. 

00002980, 

MAX  NUM  OF  REDUNDANCIES  000Q30I0' 

, 00003020. 

00003030 
00003040 
00003050  • 

MODEL  1 00003060 

000030/0 

00003680'" 

00003090 

00003100 

MODEL  ^ 00003110', 

00003120 
. 000031-30 
00003146 

MODEL  3 00003150 

00003160 

- W * * , , 


ISN  0076”' 
ISN  0077 
ISN  007b 

ISN  0079 

ISN  0080 

ISN  0081 

“isFTooe'i 

■ISN  0083 
ISN  0084 

ISN  0086 


^5 

1 


-J 

ro 


lW 0086 
ISN-,  008  7 
ISN  0088 


•ISN -0089 
ISN  0090 
I-SN  0091 
' " IS*!  0092' 

ISN  0093_ 
ISN  ' 0095 
ISN  009b 
•ISN  0097 

‘ ISN  0098 
ISN.  0099 


T WOP I =6 i 28318  53  “ ... 

DATA8(5f J)=NZER0*36O0./TW0PI 

^T.^C^fJ^EXPI—^b.  10332  +__0.V5927099*T8  - 0.18704227*0 
i717786*Tb*T3  - 0.00196i99'76*D*D  ♦ 6.001 1242688*TB*D)'“ 
DATABfj, J)=£XP(-li.. 380958  ♦ 0.2389692 1*7 B - 0.34986583*0 
10646174*Tb*TB  + 0.01930773  ?*D*f>  - 0.0002374105*0**3) 

00  t.J  160  ‘ * - ' ‘ -------- 


155 


J.60 

C 


DA_TAb<o,  J)=DC 
DAT Ab(3  , j )=DATABI3t  J)”*FC 
D AT  Ab { 4»  J >=LAMS*l\0£-09 
CONTINUE 

pELH=TRUNC/FLOAT( ITRUNC-1) 


MODEL  5 

TIMF  STEP  1NCR. ' 
CALCULATE  RELIABILITY 


J7£ 

180 

C 


190 


195 

196 


C 

c 

_c 

c 

c 

c 


LI«=N(NSS)”  ” ” ' 

DO  180  J-l »LIM‘ 

IApp=Q 

call  rimod ( j »dTlTT» iTrunct i trunc , i aT>d» ol 

00  170  1=1 , ITRUNC 
• KZdj^JsKd) 

CONTINUE-'  ‘ ' ~ - ~ 

„ SET  EXPENSE. OPTION 

IP  IKEOPT.Nfc.l)  GO  TO  195 

DO  190  'J=i,LlM 1 

COST ( J) =OATAP ( lyj ) 

GO  TU  '200  7 

COMMUTE  COST 

DO  196  J=l,LlM  ' 

COST < J^COSTH  U , J ) +COSTM  < 2 , J ) +COSTM  ( 3 , J ) 


00003170 

00003180 

- 0.001600003190 

00003200 

- 0.000500003210 

_ _ 0C00322Q 

00003230 
0O003240 
0000-3^.50 
00003260 
00003270 
00003280 
00003290 
00003300 
MATRIX  00003310 
00003^11 
00003330 
_ 00003331 

’ ■ " 'OC 003340’ 

00003*350 
00003360 
00003370 
..  000033,80 

, 00003390 

00003400  ‘ 

0.00  03 410 

000034.20 

00003.430”” 

00003440 

00003450 


' ***“  MAIN  PROGRAM  ***” 


ISN  0100 


C 

C 

200 


R( TRUNC)  MODL 
Ll‘M=NSS*l 


0,0003460 

.00003470 

00003480 

00003490’ 

00003500 

.00003510 

'00003520 

00003(530 

00003540 


ISN  0101 
ISN  010.2 
ISN  0103 


ISN  0104 


C 

C 

C 


C 

C 

C 


SA VNSR=Q 
JMAX=-0 

DO  270  K-l »LI  M 


IF  (ISUfa  .NE.  1 .AND.  K .NE.  L1M)  GO  TO  270 


R { TRUC ) MODE  FOR  EACH’ SUB-SYS  00003550 
WITH  A USER  SPEC.  - 00003560 

FOR  K=LIM  SUB-SYS  IS  TOTAL  SYS00003570 

00003580' 

00003590 

00003600 

CK  FOR  ANY  SUB-SYS  ' USER  SPEC .00003610" 
■ ISUB=2  NO  SUB-SYS  SPECS.  00003620 

ISUB-I  AT  LEAST  ONE  00003630 

SUB-SYS  SPEC.  ‘’00063640 


ISN  0106 

ISN  0107 
"ISN  0109 
ISN  0110 
ISN  0111 
ISN  0112 
ISN  0113 
ISN  0114 


NSR=0 

IF  <K.Ne\lIM)  GO  TO  210 
JM1N=1" 

JMAX=N(NSS) 

NSR=SAVN$R 


, - C0003650 

SET  NUM  OF  SUBSYSTEM  RED  Tg  000003J>60 

00003670 

SELECT  JMIN  AND  UMAX  00003680 

■ 00003690 


GO  TC  220 
210  JMIN= JMAX+1 
JMAX=W(K) 


vD 

1 


-a 


ISN  0115 
ISN  0U6 


C 

220 


ISN  0117 
ISN  0118 


ISN  0120 


NSMX=0 

DO  230  L=JM1N,JMAX 


230 

C 


C 

c 


ISN  0121 
ISN  0122 


NSMX=NSMX+SAVMX C L ) 

IF  f SPEC {K ) .LE.RH01)  GO  TO  269 


RHOTH=RHUi 
NT  = 1 
IRTN=I 


CALCULATF  MAX  NUM  SYS“RED. 


CK  FOR  SUB-SYS  USER  SPEC 


00003700- 
00003710 
—.0003720 
00003730 
00003740 
OQO 03750 


00003760 

00003770 

00003780 

00003790 

00003800 

00003810 


00003811 

SET  PARAMETERS  FOR  REDAP  ENTR Y00003812 

00003813 


ISN  0123 
_ISN  0124 
ISN  0125 


250 


R0LD(1TRUNC)-RF1XbD*RFNL 
DO  240  J=JM1N » JMAX 


CALCULATE  INITIAL  SUB-SYS 
RELIABILITY 


00003814' 
000038 15 
00003820 


240 

C 

C 


ROLD ( I TRUNC ) =RQLD  C ITR  UNC )*RI ( I TRUNC  * J J 

CK  RELIABILITY  AGAINST  SPEC. 
i * ENTER  REDAP 


00003830  1 

00003840 

00003650 

00003860 

00003920 

00003930 


ISN  0126 
ISN  0127 


ISN  0129 
• ISN  0131“ 
ISN  OVi*. 
ISN  0133 
'ISN  0134“ 


~ ISN  0135 
^ ISN  0136 


• ISN  .0137 


ISN  0139 
ISN  0140 
rSN  0142 
ISN  0143 
; ISN  0144 
ISN  0146 
ISN  0147 
ISN  0148 


C 

c 


260 

j269 

270 

C 

C 

~C  " 

C 

C 


0L0RH0=— 1 . 0 

IF  <RpL0,  ( ITRDNC  I .LT.  SP EC  t K ))  0G  TO 

i , ^ * 

» * , * ' f 

If  (K.EQ.LIMJ’GO  TO  269 

DO  260  J= JM I N t JM  AX  

NMX( J ) =NR ( J J 
SAVNSR-SAVNSR+NSR 
CONTINUE  ~ 


390 


UPDATE  NMX  FOR  K .LT.  L1M 


C 

C 

c 


LIST  OF  EXIT  PAR AH  AND  VALUES 

EXIT  R(TRUWC“»  MODE  ' 

JMIN-1 

. JMAX=N ( NSS ) 


DO  260  J=1,JMAX 
280  NMX< j)=SAVMX(J) 


NSR=  NUH  SYS  RED 
NSMX=  MAX  NUH  SYS  RED 
NOW  ENTER  MHD_ DETERMINATION 
RESET  NMX'  TCl-TRUE  LIMITS 


C 

c 

c 


200  ENTRY  TO  MND  DETERMINATION! 


C 

C 

C_ 

c 


IF  (1SPT.EQ.0)  GO  TO  300 


DO  290  J=1 f JMA X 

iF_J<NMX^U).LE.O).OR.  (NR»J).GT.O)  ) 
M0DL=D"ATABl2VJ);.l  " ~ “ ’ 

L=1 

IF  (MoDL.  EQ.5 ) l_=NCHOSE(J) 


CK  FOR  SINGLE  POINT  FAILURE'* 
REQUIREMENT ( 

_1SPT=0  _ NO  REQ. 

=1 REQ.' 

’ . ■ , * , 1 

■SINGLE  POINT  FAIL  WE  REQ.  IN 

"EFFECT  " “ " ■ — 

GO  TO  z:90  " ' 


NSR^NSP  + L 
NR (J)=NRCJ)+L 

' I ADD=0 


00003940 
00003950 
00003960 
00003970 
pOOb  ^’9  80 
00003990_ 
00004000 
00004010 
00004020_ 
00004022 
00 00-90  30 
(00004d40_ 
00004050 
.00004060 
00004070 
00004080 
00004090 
00004100 


00004110 
000041,20 
00004130 
00*004140 
' 00004150 
00004160 


00004170 
00004180 
00004190 
00'd042do‘ 
00004210 
00004220_ 
* ’ 00004230“ 
00004240 
‘ 00004250 
00004260" 
00004261 
00004262 
000*04263 
'00004264 
00004265 


ISN  0149 
ISN  0150 

* ISN  _0l5i 
ISN  0152 


ISN  0153 
ISN  0154 
ISN  0155 


ISN  0156 
ISN  0157 
ISN  0153 
ISN  0155 
ISN  0160 
ISN  0161 

_ ISN  0162 
so  "lSTT0163 
L ISN  0164 
n!  ISN  0165 


ISN  0166 
ISN  0167 
ISN  0169 
ISN  0171 
ISN  0172 
ISN  0174 

ISN  0175 
ISN  0176 
ISN  0177 
ISN  0178 


CALL  QSF  _( DfcLH ,RQLD,2 , I TRUNC  ) 

MMDOLD=RFIXFOiZ(  ITRUNCj' 

CALL  QSF  (DELH,RO,Z,ITRUNC) 
PSMHD-RH,XEQ»Z(1TRUHC) 

C 

c 


0LDRH0=-1.0 

IF(IDS.EQ.O)  Gl»  TC  350 
IF(DSMMD.LT.SPECl)  GO  TO  390 
GO  TO  351 

350  IF  <HMDOLC'.LT.  SPEC I)  GO  TO  390 

35 ]'  IRTN=o"  ‘ 

C 

360  JM IN-N ( 2 )— 1 

~ DO  370  J=l» JMIN ' 

370  NCHOSEU )=NCHOSEI J)+NRCJ> 

JMIN=N(2) 


00004266 
00004267 
00004268 
00004280 

INITIALIZATION  OF  PARAMETERS  0001^281 
BEFORE  ENTRY  10  THE^  REDUNDANT Y000042 62 

ALLOCATION  PROCEDURE 00004283 

00004284 

...  ...  00004285 

00004286 

COMPUTE  INITIAL  RELIABILITY  00004290 
FNC  FOR  SINGLE  AND  DOUBLE  00004300 

STRING  SYSTEMS  ' 00004310 

00004320 
00004330 
00004340 
00004350 
00004360 

00664376 

00004380 
'0000439 0_ 
00004400 
00004410 
00004420 

66604496 

CK  MMDOLD  AGAINST  USER  SPEC1  00004500 

GO  TO  REDAP^  00004510 

ALSO  RETURN  POINT  FOR  REDAP  * 00004520 

00004530 

00004540 

00004550 

00004560 

00004570_ 

00004580 

COMPRESS  NCHOSE  AND  ADD  RED.  00004590 

00004600 

60664410 

00004620 
00004630 


C ALL  R IMOD t J , D ELH  , I TRUNC, I TRUNC , I ADD ,6 V 
DO  285  I =1,1 TRUNC 
285  RI { I , J )=R { I ) 

290“  CONTINUE  “ ~ 

C 
C, 

C ... 

300  RHOTh =RH02 

NT~ITRUNC 

IRTN=2 
C 
C 

■ C " ■ ~ 

330  DO  320  I=i,ITRUNC 

ROt-P(I)  =RI  H,  1 ) *EXP  ( - 1 4 0£  LH*FLOAT  { 1-1 ))  /ALPHA  ) **1.6) 

DO  310  J = 2,JMAX  ' 

310  ROLDU  ) = R0LD(1  J*RI(ItJ) 

RO ( 1 )=!.- (l;-ROLD ( 1) 1**2 

320  CONTINUE  " 

COMPUTE  INITIAL  MMD  VALUE 


ISN  0179 
ISN  0180 
;ISN  0181 

ISN  0182 
ISN  0183 
isTToiaV 


ISN  0185 


ISN  0193 
ISN  0l94 

ISN  0195 
ISN  0196 
ISN  0197 
ISN  0198 


ISN  0199 


ISN  0201 


JMAX=NTNSS>  " 

DO  380  ,J=JMIN*JMAX 

NPHOSfi  ( J )— NCHOSfrC.J-*-!  ) t J-»l  ) 

’ T PRIH=1 PRIMtPLQAT ( 3*NR { JM1N  > > 
ITRUNP=rTRUNC 
RETURN*  


EXPENDABLES  INFO  RETURN 


.00004710 


- --  ... 00004720 

***  MAIN  REDUNDANCY  ALLOCATION  PROCEDURE  ' '***  ' " 00004730 

• • * (REDAP1  00004740 

00004750 

* .V. .00004760 

IF  . MAX  NUM  RED  EXCEEDED,  R ETRN00004770 

..  . OTHERWISE  CONTINUE  PROCEOURL  00004780 

00004790 

IF  INSR.GE.NSMXJ  GO  TO  1490, 510),  IRTN  000p4800 

. ...  00004810 

SELECT  NODULE*  to  ADD  A REDi  IF00004820 
J.GF.JMAX  GO  TO  SYS  UPDATE  00004830 
, . PROCEDURE.  • ■ • 00004840 


DO  44b  J=  JM1N, JMAX,1  • “ *'  00004550 

IF  CnR<J).0E.NMX(J1>  60  TO  440  00004860 

. ooootlio 

IF  C ( MODL • EQ. 3 ) . AND.  ( Ty,R T J+l ) .GE  »NMX ( j*l ) ) J GO  T0  440 ‘00004880" 

: . , • • - ADD  A RED  TO  MODULE  AND  • 00004850 

_ . .1 __  COMPUTE  THE  RELIABILITY  FNC  000,04900 

IAOD-1  " 00004901" 

CALL  RIH0D(J,DELH,ITRUNC,NT,IADD,1)  00004910 

— — P^kCyLAJE  NEW  SYS  RELIABILITY  00004920 

DO  400  IND=1,NT  " 00004930 


DO  400  IND=i,NT 
lf=  ITRUNC  + l— 1ND 

RNEW(I)=ROLD (I) *R III /R I ( I , J ) 
CONTINUE  * " 


IF  (NT.NE.lj  GO  TO  410 

1-ITRUVC 


CK  FOR  RTTRUNC)  OR  MMD 
COMPUTATIONAL  MODE  _* 

R ( ilRUNC ) MODE 


ISN 

ISN 


ISn 

ISN 

ISN 


0202 

0203 

0264' 

02-05 

0206 


ISN  020? 


ISFT 

ISN 

ISN 


0209 

0210 
0211 


ISN 

ISN 

ISN 


0212 

0213 

0214 


ISN 

ISN 

ISN 


0215 

0217 

0218 


vO 

i 


ISN 

ISN 

ISN 


0220 

0221 

0222 


ISN 

ISN 

JSN_ 

ISN 

ISN 

ISN 


0224 

0225 

0226 


0228 

0229 

0230 


C 

410 


C 

C 

420 

C 

C 

C 


RHO=  < A BS ( RNEW ( I )-ROL  D < I >) )/COSfT Jf 
GO  TO  420 

CALL ~QSF~  (OF Lh, RNEWi 7 ,J TRUNC") “ 

MMDNEW=Z ( ITRUNC )*RFIXED 

RJ±Of  * ^ < MMDNfc  W-HMDOLD  H /CUS T ( J J 


If  ( RH_0.LT.OLDR HO ) _GQ  TO  440 


MHO  MODE 


00005020 

00005030 

00005040 


930 


440 


C 

C 

C 


JSAVE-J 
OLORHD=RHO 
DO  430  1ND=1,NT 

r=ITRUNC+i-IND  " ' 

SAVR( I )=R ( I ) 

CONTINUE 

IF  (NT.NE.l) ’SAVMMD=MMDNEW 
CONTINUE 

IE  fOLDRHO.LT.RHOTH)  GO  TO  (530»540>>  IRTH 


SELECTION,  DECISION  SEQUENCE 


RHO.LT .OLDRHO { SAVE  CURRENT 
RELIABILITY  DATA,  MODULE  NUM , 
AND  VALUE  OF  RHO. 


***  END  REDAP  *** 


C 

C 

c 


c 

c 

c 


SYSTEM  RELIABILITY  UPDATE  PROCEDURE 
(SYRUP) 


MODL=DATAb(27 JSAVEJ+.l 
L=1 

IF  (M0PL.EQ.5)  L=KCHOS£< JSAVE) 
NSR=NSR+L 

NR ( JSAVt )=NR< JSAVE)+L 
IF (M0DL.NE.4)  GO  TO  449 


449 


SYSLB=SYSLB+DATA  B(  iV J S A v eT/TTpri m+f LOA T(1l*NR  ( JSAVE ) IT 
GO  TO  450 

SYS LRj=S  Y SLB+0ATA8 { 1 , JSAVE)*F LUA T ( L ) 


00005050 

00005060 

00005070 

0660'50"80 

00005090 

00005100 

oboosiTo ' 

00005120 

00005130 

00005140 

00005150 

00005160 

000051.70 

00005190 

00005200 

00005210* 

00005220 

00005230 

00005240 

00005250 

00005260 


.00005270 

00005280 

00005290 

00005300 

00005310 

00005320 

00005330 

00005340 

00005350 


00005360 

00005370 

00005380 


00005390 

00005400 

00005410 


rSN  0231 
1SN  0233 
ISN  0234 
" TSri  0233 
. ISN  0236 
. ISN  0237 
;iSN  0238  " 
ISN  0239 
ISN  0240 
.ISN  0242"" 
ISN  0243 
ISN  0244 
W 0245 
ISN  0246 
ISN  0247 
TSN1T248 
ISN  0249 
ISN  0251 
vO  ISfc  0252 
~ ISN  0234 
£ >!SN  0253 
W0256“ 
ISN  0257 
ISN  0258 

ISN  0259 


ISN  0261 
ISN  0263 

f , 


IF  (M0DL«NE»3)  G0T0~4'50  ~ 

NSR^NS^+l  • 

___  _ NR  ( JSAVE+ 1 ) -NP._(_JS AVf-  +1 ) + 1 

SYSLR^SYTLB+DATA'B  < 1»  JS  AVfc+J  ) ‘ * - 

IaCL=0 

JSAVE+l,DELH*ITPLNC,XTRUNCtlADDfO) 

DO  452  1=.1,TTRUNL  ~ ~ J 

452  RIU,JSAVL  + 1)=R(I ) 

650  IF  (NT  • Nfc • I)  GO  TO  4^2 

IADD^O  ' ' • -•  — --  - 

CALL  RIHOD(JSAVL,OELH,ITRUNCfITRUNC, IADD.G) 

DO  ^5_l  I =1  #ITRUNC 

..  451  SaVF.(  I)=M]1  "•  • 

455  DO  4b 0 1=1tITPUNC 

RKI  , JSAVF)  = SAV»(  I > 

460"  "CONTINUE  ““  — ™ " — 

IF  (NT  .NE.  1)  GO  TO  480 

mmdqld=Savmmd 

IF(luS.tU.O)  G(J~TO  480"  ' 

DO  *70  IND=1, ITRyNC 
RD(  INp  ) = !«■-(  l--RQLD( INU) )**2 

CONTINUE  • ^ “ • 

CALL  QSF  (UELH,R0,2PITRUNC) 

OSMMD=RF I XED*Z ( I TRUNC ) I 


00005420 

00005430 

00003440 

00005450 

00005457 

00005*58 

0000545S 

00005460 

0000546T 

00005462 

00005463 

00005464 


00005465 

00005470 

00005480 


00005300 

00005510 

00005520 


470 


00005530 

00005540 

00005350 


C 

480 

C 

T“" 

C 

c 


IF  CSYSLE.GE.SLtHXi  GO  TO  <500*320) 


EXIT  IF 
, IRTN 


SYS  HEIGHT  EXCEEDED. 


00005560 

00005570 

00005580 


C 

C 


IF  (NT.Ng.l)  GU  TO  330 
GO  TO  250 


BRANCH  TD  START  ANOTHER  PASS 
THRU.  REDAP ( 

MODE  ■ NT  STHT 

P(ITRUfiC)  1 

HMD  I TRUNC  330 


00005590 

00005600 

00005610 


00005620 
00005630 
NUH00005640 
250  0000 5650 

00005660 
00005670 


C 

c 


c 

c 

c 


'***  END  SYRUP  *** 


00005680 

00005690 

00005700 


00005710 
.00005720 
OO 6 05730 


c “'***  " PROGRAM  RETURNS  " *** 

C 

C 


ISN 

0264 

“490 

IR  TN=-1 

ISN 

0265 

GO  TO  360 

ISN 

0266 

500 

1 R TM= -2 

ISN  0267 

GO  TO  360 

ISN 

0268 

510 

IRTN--3 

ISN 

0269 

GO  TO  360 

ISN 

0270 

520 

IRTN--4 

ISN 

0271 

GO  TO  ioO 

ISN 

0272 

530 

IR  TN=— 5 

isN 

0273 

GO  TO  360 

ISN 

0274 

540 

IRTN=-6 

ISN 

0275 

GO  TO  360 

C 

ISN 

0276 

END 

♦OPTIONS  IN  EFFECT*  ” " NAME=  MAI  N»OP  T =01  »L  I NEC  WT=<+  I * S IZ  E=0  OOO'K  » 

jKjPTIONS  IN  EFFECT* . SOURCE  »£BC01C  »NOLISI  tNOOECK.»LOAP»NOHAP«NOEOIT»IDfNOXREF 

♦ STATISTICS*  SOURCE  £TA TFMrNTS  = 275  , PROGRAM  SIZE  = 5734 


00005740 

00005750 

00005760 

00005770 

00005780 

00005790 

00005800 

00005310 

J00005820 

00005830 

00005840 

00005850 

00005860 

00005870 

00005880 

00005890 

nnnfi«;gnn 


♦STATISTICS*  NO'  DIAGNOSTICS  GENERATED  “ ~ 

t 

-fc-N- °F— — 12 **  _ _ 73K  BYTES  OF  CORE  NOT  USED 


-4 

vO 


- 1 8C 


LEVEL  21.7  ( JAN  73  J 


ISN  0002 
1SN  0003 

ISN  “0004 

ISN  0006 

ISN"  0006  “ 


T 


‘PURPOSE 

TO  COMPUTE  THE  RELIABILITY  FUNCTION  FOR  MODULE  J AFTER 
J PUNDANC  I F S ARE  ADD  EG'  TGJTH  E module 

USAGE 

CALL  R1M00IR  »NR»jJ  . D t LB,ITRUNC,NT,IAPP,IQPT ) 

description  of  parameters 

J • -INPUT  ^10  DULL  NUM 

" DELH  —DELTA  TIME,' THE  TIME  INCREMENT'  “ ” 

itrunc  -the  num  of  time  points 

NT  -INPUT  OPTION  PARAMETER 

T ADD  '-INPUT  OPTION  PARAMETER  ^ 

-INPUT  OPTION  PARAMETER' 


10PT 


REMARKS 

OPTION  PARAMETER 

NT 


VALUE 

x 


ACTION 

ONLY  COMPUTE  RELIABJtLITY  AJ  . 
'TRUNCATION  TIME.  RETURN  VALUE 

D ( r To  i iur  l 


60005910 
. 00005920 
00005930 
00005940 
3100005950 
' 00005960 
Q0O05962_ 
00005963 
00005964 
00005965 
00005970“ 
000059.80^ 
0,6005990~ 
00006000“ 
00006010 
00006020 
00006030 
00006040 
00006050 
00006060 
00006070 
.-00006080 
00006090 
00006100 
..qooopiio 

, P00,6dl20 
, 0Q0061^0 
.00006140 
00006150 
,00006160 
. ,6,000617.0 
PO GO 61 80 
000061.90 
J) 00062 OP 


ygg 

•IS 


1 


00 


ISN  0007 
ISN  0008 
ISN  0009 


C 

C 

C 


c 

c 

c 


IA0D 


IOPT 


RETURN  VALUES  IN  R.  00006240 
ADD  NO  REDUNDANCIES  BEFORE  COM-  00006250 
PUTING  THE  RELIABILITY  FUNCTION. 00006260 
ADD  REOUNDANCiES  BEFORE  "COM PUT-  00006270 


C 

c 

~c 

c 

c 

"c 

c 

_c 

c" 

c 

c 


OTHER 


ING  THE  RELIABILITY  FUNCTION. 
UNCOUPLE  MODELS  J.  AND  3. 

COUPLE  MODELS  I AND  3* 


C 

C 

C 


C 

C 

_c 

c 


c 

C 


GLOBAL  VARIABLES  PASSED  THUUbH  COMMON  ” ‘ 

R -The  RESULTING  RELIABILITY  FUNCTION 

„ NR -INPUT  VfcCTQft  OF  IHE  NUM  OF  REDUNDANCIES  BY  MODULE 

NCHOS  -INITIAL  NUM  OF  ELEMENTS  INMOPULES  ‘ ' 

SYSPAR  -MATRIX  OF  MODEL  PARAMETERS 
SYSPAR ( £ , J ) = MODEL  ID  FOR  J-TH  MODULE 


00006280 

00006290 

000063Q0 

00006310 

00006320 

00006330 

00006340 

00006350^ 

00006360 

00006370 

00006380 


FDR  FURTHFR  DESCRIPTION  SEE  COMMENTS "PRECEEDING  THE  00006390 
PARTICULAR  MODEL  OF  INTEREST.  00006400 

00006410 


SUBROUTINES  AND  SUBPROGRAMS  REQUIRED  " 

FORTRAN  SYS  FNC$  EXP,  FLOAT#  1NT,  SORT 
EXTERNAL  FNCS  GAJMfGAMMA  FNC»  CERF=ERRDR  PNC 


SUBROUflNES  NONE 


00006420 

00006430 

00006440 


>•***••< 


!••••••••« 


00006450" 

00006460 

....00006470 


R00T2=SQR1 (2.0) 

MQD=INT( SYSPAR { 2, J )+_.  I ) 

GO  Tlf  (10,90,120, loO/lOir 


MOD 


MODELS  1.  AND  3 


c 

c 

c 

VARIABLES 

SIZE 

ORIGIN 

DEFN 

c 

LAMS 

1 

INI 

SENS E/S WITCH  FAILURE  RATE 

c 

LAM 

1 

INT 

FAILURE  RATE 

C 

Q 

I 

TNT 

DORMANCY  FACTOR 

c 

DC 

I 

INT 

MODULE  DUTY  CYCLE 

c 

MI 

1 

1NT 

NUM  OF  STANDBY  ELEMENTS 

c 

_NI 

1 ■ 

1NT 

NUM  OF  ACTIVE  ELEMENTS 

00006480 

00006490 

00006500 

00006510 

.00006520 

00006530 

00006540 

00006550 

00006560 


00006570 

00006580 

00006590 


00006600 

00006610 

00006620 


tx)  Q 

gg 


-182' 


' SYSPAR 


GLOBAL 


ISN  0010 
ISN  0011 
v,  ISN  0012 
ISN  0013 
ISN  0014 
.ISN  0015 


LAM=S YS  P AR ( 3 » J ) ' 
LAMS=SYSPAR(4, J) 

Q=  SYSPAR ( B»  J I 

DC=SYSPAR  (6,  J ) ;~ 
'NRfrQ=NCHDSF  C J ) 
NREO=NR(J) 


ISN  0016 
ISN  0018 
'f  ISN  0019 
£ ISN  0020 


IF  (HDD  .£Q.  1}  00  TO  15 
NREQ=1 

nreo=nred/nchqseTji 

LAM=LAM* FLOAT  (NCHOSH  J)  I 


ISN  0021 
ISN  0022 


15  IQ-1NT(0+»1) 

IF  (1Q.NE.1)  GO  TO  20 


ISN  0024 
ISN  0025 
ISN  0Q26 


NI=NREQ+NR£U+IaDD 

MI=0 

“go  To  30  ' ‘ • “ ~ 


ISN  0027 
“ISN  0028“ 


NI=NR£Q 

MI=NRED+TADD 


ISN  0029 


ISN  0032 


IF  (Ml.NE.O)  G=W+LAMS/LAM 
Q B AR=Q/(OC+  (T  DC ) 

L AMB  A R=L AM* (DC+ ( 1 . -DC 1 *Q > 


****  COMPUTATION  OF 


MODEL  PARAMETERS  FOR  j— TH  00006630 
MODULE  00006640 
-ir3  J VALUE  T3F  _LAM_  00006650 
1-4  VALUE  OF.'  LAMS  00006660 
1=5  , VALUE  OF  Q ’ 00006670 
1=6 VALUE  OF  DC  00006680 


‘ ' 00006690 

• ... .00006700 

" OOOOt>7iO 


00006720 

00006730 

I I 00006740 


' 00006750 
00006751 

_ 00006752 

CK  MODEL  TYPE  00006760” 

00006770 

00006771 


" 00006772 
00006773 

CK  INCR  MQDE(  I Q=I  ACTIVE ‘ 00006780 

' OTHER WI SE  STD 6 YOG 006790“ 
00006800 

_ _ 00006810 

INCR  IN  ACTIVE  MODE  * 6d006"820~ 

00006830 

.....  0000  6840 


00006850“ 

INCR  IN  STANDBY  MODE*  000068'60 

1 00006870 

„ " 00006880" 
CALCULATION  OF  MODEL  CONST ANTS00006890 

‘ _ ' 00006900_ 

' 00006910 

1 ' 00006920 

__i  • 00006930 

-IABILITIES  ****  ‘00006940 

' ''  • ’ * 00006950 

INITIALIZATIONS  • '■  00006960 


RELIABILITIES  **** 
, INITIALIZATIONS 


ISN  0033 
ISN  0034 
ISN  0035 


ISN  0036 
ISN' 0037 

ISN  0036 


ISN  0039 


ISN .0040 
ISN  0041 
ISN .0042 

TSN  0043  ■ 

> 

ISN  0044 
~?"'ISN  0045 
£ ISN  0046 
w ISN  0047- 
ISN  0048 
ISN  0049 
ISN  0050 
ISN  0051 
ISN  0052' 
ISN  0054 
ISN  0055 

ISN  0056 
"ISN  0058 
ISN  0059 
ISN  0060 
ISN  0061 
ISN  0062 
ISN  0063 


LIM=MREQ  ‘ 

LlM2=LIM-l 

00  80  INO-IfNT  • 

c " : ■ ■■ 

c . 

If  mUNC  + I-INL 

TIMF=DFlH*H0A7  (1-1)  " 

C 

SUM0=1.0 

C ‘ ’ ’ 

c 

EC1=EXP(-LAMBaR*T1ME*FHjAT(M)  ) 

c “ -----  --  - ■ 

C ■ 

c ; 

00  70  lNCi-lVLlH1  ' 

. K=LIM— IN02 

SUM2=0.0  J 

SUM1=0.0  ‘ 

C 

K.LIM=K+1 

NILlM=Nl+i  “ 7 

DO  40  INDD=KLIM,N1L1M 

IND3=INPP— 1 

ARGl=i.*FLOAT ( IND3-K ) 


00006970" 

00006980 

JD0006990 

DO  FDR  l ACH  1 IMF  POINT » IN  ' 00007000" 
DESCENDING  ORDER,  NT  TO  1*  00007010 

00007020 

00007030 

SUHO  ACCUMULATES  RELIABIL1TY00007040 

00007050 

EXPONENTIAL  CONSTANT  " 00007060 

00007070' 

. . - __  00007080" 

00007090* 

CALCULATE  PROBABILITIES,  IN  00007100 

DESCENDING  ORDER,  L1H-1  TOJ).  00007110 

000071-20 

00007130 

0000  7140'1 

00007150 

COMPUTE  FIRST.  SUMMATION  000071601 

00007170 
00007171 
00007172 
00007173 
00007180 
00007190 
000072061 
o66o'72io 
00007226 
00007230 
66667240'" 
00007250 
00007260 
00007270  ' 
00007280 
00007290  ■ 
00007300 
00007310 
00007320 


ARG2=FL0AT (NI-IN03) 

j. ARG3-1  .+ARG2/0BAR 

SK^GAMt  A»Gl  )*GAMTARG2+i.')#GAMf  ARG3+FL0AT ( MI ) 1/GAM ( ARG3 ) 

IF  ( (lND3-2*(lND3/2)).fc,C.l)  bK=-b«.  ; 

Z-EXP(-LAMBAR*TIM«l*FlQAT(IND3)  ) 

40  SUMI=SUM1  ♦2/BK"^  “ ” . 

C COMPUTE  SECOND  SUMMATION 

IF  (MI.EO.O)  GO  TO  60 

DO' 50  iND5=l,KI  * ' “ “ 

ARG1=FL0aT  ( 1NH3 ) , 

_ARG2=1 % + FLOA  T (MI— IN03)_ 

ARG3=1.+~ARgI*QBAR  ‘ ” 

CJ=GAM (ARG1+1 . ) *GAM ( ARG2) *GAM(ARG3+FL0AT(NI— K ) }/GAM(ARG3 ) 
jKK^NI+JNDi  ' . 


ISN  0064 
ISN  0066 
ISN  0067 


ISN  0068 
ISN  0069 
ISN  0070 
ISN  0071 
ISN  0072 
"ISN  0073" 


•ISN  0075 
ISN  0076 


n£3 


00 

■6 


' — T 

ISN  OO77 
ISN  0079 

ISN  0030 
ISN  0082 


50 

C 

c 

c 

c 

60 


IF  ( ( ICK-2*CICK/2h.EQ.i)  CJ=-CJ 
Z=EXP  <-Q*LAM*TIME*ARGi ) 
J>0N2=SUH2+2/C  I 


.CALCULATION  OF  PROBABILITY^ 
PR(K)=A(KI*SUMS 


C 

C 

c 

70 


SUM2- SUM1+EC 1*SUM2 
ARGI=FLOATrNl> 

ARG2=1.+FLGaT(K)  " • - - -• 

AR&3=1.+ARG1/UBAR 

--^^IMkllLi  ^GAHrARfeS^FLOATtMin/IGAHi  ARG2  J *GAM  (ARG3I  ) 

IF  HK-2*fK/2>).EQ.l  j AK=-AK  r“  '■  ■ " 


C 

C 

C 

C 


SUMo=SUNO-AK*SUM2 

CONTINUE 


ACCUMULAT E RELIABIL 1 T Y 


80 


IF  (MOO. EG. 3)  SUM0~SUH0*R ( 1 J 
R(I»=SUMO 


CK  COUPLING  OPTION 
ASSIGN  RELIABILITY  AND  I NCR 
TIME  ~ ' 


IT 

C 

C 


RETURN 


c 

c 

c 

M0DEL2I 

variables 

c 

FMU 

c 

FSIG 

c 

SYSLAR 

C 

C 


1=3 

!=*«• 


VALUl  OF  FMU 
VALUE  OF  FSJG 


00007330 

00007340 

00007350 


00007360 

00007370 

00007380 

00007390 

00007400 

00007410_ 

00007420 

00007430 

00007*40 


00007450 

00007460 

00007470 

00007480 

00007490 

00007500 


COO 075 10 
00007520 
00007530 


J=J-1 



CK  COUPLING  OPTION  ' “ 

SIZE 

ORIGIN 

DEFN 

"~sc" 

“ ‘local 

MEAN  UNIT  LIFE  ~ ~ 

sc 

local 

STD.  DEV. 

I»J 

GLOBAL 

MODEL  PARAMETERS  FOR  J-TH 
MODULE ' — 

00007540 

00007550 

00007560 

00007570 

00007580 

00007590 


00007600 

0000,7610 

00007620 

00007630" 

00007640 

00067650 

00007660 

00007670 

00007680 

00607690 

00007700 

00007710 


-185 


C 

c 

c 

NI  SC  LOCAL 

ISN  0083 

c 

90 

FMU=SYSPAR( 

ISN  0084 

FSIG=SYSPARC4,J» 

ISN  0085 

• c 

LIM=NR( J J+IAOD 

ISN  0086 

Nl=LIM*NCHOSE(JJ 

ISN  0087 

c 

c 

LIM2=LIM-i 

ISN  0088 

oo  iio  i=i,Nf 

ISN  0089 

K=ITRUNC+1— I 

ISN  0090 

Z=( CDELH*<K~1) )-FMU»/lROOT2*FSIG) 

ISN  0091 

AN^CL  RFCABS  (ZD 

ISN  0092 

IF  <ABS<Z).GT.4.0)  AN=1.-AN 

ISN  0094 

AN=0.5*<l.-ANj 

ISN  0095 

IF  "C2.LT. 0.0)  AN-1  .—AN 

C 

' c _____ 

c 

ISN  0097 2= AN 

ISN  0098-  AN=AM**Nr  ' 

ISN  0099  SUM=AN 

ISN  0100 IF  I LIM.EQ.O)  GO  TO  IIO 

ISN  0102  Z=(l.-Z)/Z 

ISN  0103  LLUM=LIM2+1 

ISN  0104  DO  100  LLL=1 » LLLIM 

ISN  0105  ‘ - L=LLL-1  ~ 

ISN  0106  AN -AN* I F LOAT I NI— L ) /FLOAT I L +1 1 ) *Z 

ISN  0107 100  SUM-SUM+AN 

ISN  0108  110  R(K)=SUM  ' 

ISN  0109  RETURN 

C_  _____ 

c 

C MppEL3(_  


TOTAL  NUM  OF  ELEMENTS  00007720 

00007730 

........ - ,00007740 

00007750 

00007760 

_ 00007770 

INCR  REDUND.  00007780 

00007790 

00007800 

00007810“ 

COMPUTE  NEW  RELIABILITIES  00007820 

_ 00007830 

~ 00007840 
00007850 

1 00007860. 

00007870 

00007880 

_ _ 00007890 

“00007900 

00007910 

COMPUTATION  OF  CUMULATIVE  00007920 

BINOMIAL  PROBABILITIES  ' 00007930 

00007940 

_ 00007950 

00007960"’“ 

00007970 

0000  7980  : 

00007990 

00007999 

_ 00008000 

“ 00008001 
00006010 

00008020 

00008030 

C0008G40 

_ 00008050 

..0000  8060 

00008070 

00008080 


PRIGtNAE  (PAGE!  IS 


I ISN  Olio 

ISN  0111 

i ISN  0112 

L ISN'0113 
00' 

ISN  0114 
ISN  0115 
I ISN  0116 
ISN  0117 
ISN  0118 


ISN  0119 
ISN  0120 
ISN  0121 
ISN  C122 
ISN  0123 
ISN  -0125 
ISN  0126 
ISN  0128 
ISN  0129 
ISN  0130 
ISN’ 0131 


C 

C 

C 

C 

c 

• JL 
' c 

- c 
c. 

C 

c 

,_c_ 

c 

c 

c 

c 

120 


c 


VARIABLES 

SIZE 

ORIGIN 

' A3 

SC 

LOCAL 

BB 

SC  , 

, . LOCAL" 

BCYC 

SC 

LOCAL 

NI 

sc 

LOCAL 

NC 

sc" 

' "LOCAL' 

SYSPAK 

1»  j 

GLOBAL 

DEFN  

BATTERY  CELL ‘ CONSTANT 
BATTERY  CELL  CONSTANT 
• CYCLE  -RATE  OF 'BATTERY 
TOTALNUM  OF  BATTERIES 
NUM  OF  CELLS  IN  BATTERY 
MODEL-  PARAMETERS  FOR  J-TH 
MOOULE  ' ‘ ' ‘ 

1=3  ' Value  ufab 

1=4  VALUE  OF  BB 

_l=5  VALUE  OF  BCYC 

1=6  ~ VALUE  OF  NC 


. AB=SYSPAR  <3* J) 

' BB=sVsPAR(4tJt 
BCYC>"SYSPAR(37jT 
NC  = SYSPAR  (t>, Ji+.l 

LIMfNRl  7 f+i  A0D7  " 7 

Nl=LIM+NCHOSE(’ji 
.'tjmz^im-i  7 .. 

LI M3=NC/2  “'r 

•NC=NC+L.IM3  ' 

• ■ » : • ' ■ ■ ‘ 


•I NCR  REDUND. 


COMPUTE  NEW  RELIABILITIES 


“DO  140  .1=1, NT 


_K=ITRUNC  + 1-I  . - , 

2=  ( DFLH* CK"1 ) ^43 8^6777(87601  *ROOT2)  “ “ 

AN=CFRF(A'bs(2)) 

‘ IF,  ( A^SLZ  J‘,GT.4‘.0)  AN=1.-AN  - . 

AN =0.5*  C 1 A.'!}  . - 

IF  fZ.LT .0.0)  AN=1«— AN 
Z=EXP(-(  <_BCYC;*<bELH*(K-l)) 

LLLIK=L1 M3  , “ — ~ 

AA=Z#*NC  ,,  ....  , . 

SUM=AA 


, 00006090 

. odd 081 00 
•bbdoslio 
" ? 0000 8120 
. 00008130 
- '-00008140 
00 6 08150 
00008160 
00008170 
00008180  " 
od668i90 
00008200 
"'00008210 
00008220 
. -.OG'008230 
‘ 00606240 
‘ 66608250 
00008260 
"',00008270 
00008280 
VO 0008290 
‘ 00008300 
00008310 
00008320 
00008321 
. 60008322 
00.008330 
QG008340" 
00008350 
66608360 
'■•00003370 
/'OOpb  8380 
00008390 
,'00008400 

’boob  a’^  io 
ooboa^o 

00008430 

;bo,6’08432 

0000  8433 


L8T-6J 


ISN  0132 
ISN  0133 
ISN  0134 
ISN  0135 
ISN  0136 
ISN  0137 


z=(i;^z»7z"  “ — 

DO  125  UL=1*LLL1« 

L=LLL-1 

AA=AA*(FL0A1 (NC-LI/FLOATTL+l i)*l 

S»M=SUM+AA 

Z=SUM*AN 


ISN  0136 
ISN  0139 
ISN  0140 
ISN  0142 
ISN  0143 
ISN  0144 
ISN  0145 
ISN  0146 
ISN  0147 
ISN  0148 

ISN  0149 
ISN  0151 
ISN  0152 
ISN  03.53 


AN=Z**wI  “ 

SUM=AN 

IF  tLlK.EQ.O)  GO  TO  140 

Z=U.-ZJ/Z 

LLLIM=LlM?+l 

DO  130  LLL=1 rLLLIM 

L=LLLrl 

AN=AN*IFL0AT(p*1~l)/FL0ATCL+1)  )*Z 

SUM=SUM+AN 

R(KI=SUM  *' 

IF. (IOPT.EQ.Q)  GO  TO  150 
J=J+1 
GO  TO  10 
RETURN 


M0DFL4 ( 

VARIABLES 


SIZE 


ORIGIN 


FMU 

FSIG 

SYSPAR 


COMPUTATION  OF  CUMULATIVE 
BINOMIAL  PROBABILITIES 


CK  COUPLING  OPTION 


0£FN 

“mean  ex  pen  a bl  e~  de-  p le  tTofTr  The 

STD.  DEV.  OF  DEPLETION  TIME 
MODEL  PARAMETERS  FOR  J-TH 


HODULE- 

1=3  , INITIAL  VALUE  OF  MU 


00008434 
00008435 
00008436 
00008437 
00008438 
00008439 
00008440 
00008450 
00008460_ 
00008470 
00008480 
00008490 
00008500“ 
00008509 
00008510 
“00008512! 
00008520 
00008530 
00008540 
0 DUO 8550 
00008  56 0_  Q'S  _ 
' 00008570  tVS 
00008580  q a 
00008590  • Q S 
00008600  ' 
.00008610  rjQ 

00008620  P 

00008630 
00008640  S3 
00008650  '£§  m 

00008660 
00008670 
_00008680 


00008690 

00006700 


i=A  INITIAL  VALUE  OF  S1G  00006710 
1=5  1NCR.  VALUE  OF  MU  ' 00008720 

1=6  1NCR.  VALUE  OF  SIG  00008730 

■ ; 00008740 


c 

c 

c 


ISN  0154 
JSN  0155 
ISN* 0156 


ISN  0157 
ISN  0158 


C 

160 


C 

c 

c 


ISN  0159 
ISN  0160 
ISN  0161 
1ST  0163 
ISN  0164 
vn  ISN  0166 
■l  ISN  0167 
°°  ' ISN  0168 


170 


INCR  REDUNO. 


2*FL0AT(NR(J)+IADD) 

FHU=SYSPAR ( 3 « J ) +Z*S YSPAR ( 5 » J ) 


FSI&-  SQRT(  ( SYS  PAR  (4»  J)**2)  + Z*  ( SYSPAR  (6  ,J  )**2) )’ 


.00008750 
00008760 
0,0008770 
00008780 
00008790 
0000 8800 


DO  170  1 =1 »NT 
K=ITRUNG+1-I 

Z=  (."( D ELH*  f K-l ) ) -FMU ITTroot 2* fsTgT ' 
R(K)=CERF{ABS<Z)| 

IF  CABS(Z).bT.4.0;  R (K )=1.0-R{ K ) 


COMPUTE  NEW  RELIABILITIES 


00008810 

00008820 

000088  30^ 

60008846 

00008850 

00008860 


Rile ) =0.5*  ( 1 .HR  I K )T 
IF  (Z.LT.O.O)  R<K)=1.-R<K> 
CONTINUE 


RETURN 

tNO 


00008870 
00008880 
00008690 
00008900 
OpO.O  8910 
00008920 


"NAME=  MA I N , 0PT=0 1 »L  INECNT =4T*Siz£=60O0K  t” 


♦OPTIONS  IN-  EFFECT*”"  ‘ 

_0P yON a In  EFFECT* „ SOURCEjrjEBC D I^lNgy^ST^NODE CK yLOAD f NOMAPtNOEDIT , ID »NOXREF 

SOURCE  STATEMENTS  = 167  ,PRbCRAM  SIZE  = 4534 


00008930 

00008940 


♦STATISTICS* 

♦STATISTICS*  NO  DIAGNOSTICS' C ENERaTED 
******  END  OF  COMPILATION  ****** 


93K  BYTES  OF  CORE  NOT  USED 


81- 


LEVEL  21,?  1 JAN  73  > 


OS/360  FORTRAN  H 


COMPILER  OPTIONS  - NAM£=  " MAIN»OPT=Ol»LII#CNt^l,SIZE=QO0OK» 


SOURCE, EBCDIC, NOLI ST,NODtCK, LOAD, NOMAPfNOEDIT, ID, NOXRKF 
ISN  0002  SUBROUTINE-  L*SF(H,Y,Z,NDIH!  00008950 

C ~ " " ‘ ' ‘ ' 00008960 

C .... .....00008970 

C 00008980 


sO 

_'S_. 


c 

_C_ 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 

Q 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


SUBROUTINE  QSF 
PURPOSE 

TO  COMPUTE  THfe  VECTOR  OF  INTEGRAL  VALUES  FOR  A GIVEN 
FOUIUISTANT  TABLfc  OF  FUNCTION  VALUES. 


USAGE 

CALL  QSF  (H»Y,Z ,NDIM) 


DESCRIPTION  OF  PARAMETERS 

H - THE  INCREMENT  OF  ARGUMENT  VALUES. 

Y - THE  INPUT  VECTOR  OF  FUNCTION  VALUES. 

Z’~ 


NOTH 


THE  RESULTING  VECTOR  OF  INTEGRAL  VALUES. 
IDENTICAL  WITH  Y. 

THE  DIMENSION  OF  VECTORS  Y AND  Z. 


Z MAY  BE 


REMARKS 

NO  ACTION  IN  CASc.  ND1M  LESS  THAN  3, 


00008990 

00009000 

00009010 

'00009020* 

0000V03D 

00009040 

"00009050' 

00009060 

00009070 

00009080 

00009090 

00009100 

06009110 

00009120 

00009130 

00009140 

00009150 

00009160 


SUBROUTINES  AND  FUNCTlOfi  SUBPROGRAMS  REQUIRED 
NONE 


method 

BEGINNING  WITH  Z<1)  = 


•0,  EVALUATION  OF  VICTOR  Z IS  DONE  BY 


MEANS  OF  SIMPSONS  RULE  TOGETHER  WITH  NEWTONS  3/8  RULE  OR  A 
COMBINATION  OF  THESE  TWO  RULES.  TRUNCATION  ERROR  IS  OF 
ORDER  H**5  ( l.E.  FOURTH  ORDER  METHOD!.  C«LY  IN  CASE  NDIH=3 


TRUNCATION  ERROR  OF  Z(2!  IS  OF  ORDER  H**4. 

FOR  REFERENCE,  SEE 
m F. B. HILDEBRAND,  INTRODUCTION  TO  NUMERICAL  ANALYSIS, 


00009170 

0G009I8G 

00009190 

"00009200 

00009210 

00009220 

00009230 

00009240 

00009250 


MCGRAW-HILL,  NEW  YORK/TORONTO/LONDON,  1956,  PP.71-?©, 
12)  R.LURMUEHL,  PRAKTIStHt  MATHEMATIK  FULR  INGENIEURE  UNO 
PHYSIKER,  SPRINGER,  &ERL IN/GOETT INGEN/HEIOELBE RG,  1963, 


00009260 

00009270 

00Q092B0 

00009290 

00009300 

00009310 


pp.  214-221;' 


0003 

0004 
0005' 


0006 

0007 

000  a 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 


ISN  0022 


ISN  0023 
ISN  QQ24 

ISN  0026 
ISN  0027 
ISN  0028 
ISN  0029 
ISN  0030 


DIMENSION  YU  JTZTU  ""  r~” — 

HT=.3333333*rt  " ‘ 

**  TRND.Im~5  17,8,1  ' ' 

NDIM  IS  GREATER  THAN  5.  PREPARATIONS  OF  INTEGRATION  LOOP 

1 SUM1-Y(2)+Yf 2)  ~~  

SUM1=SUM1+SUH1 

SUM1=HT*(YU)+SUM1+Y(3i) 

AUX1=YT4T+Yf4)  ” ~ ~ — 

AUX1=AUXL+AUX1 

AUXl=SUMi»HT*iVf3 L+AUXl+Yf  5 1 ) 

AUX2=HT*{Y(l)+3.fi75*<VIZ)+Y(5)H:2.625*fyi3)+Yf4)}+Vl6lT“~ 

5UM2=.Y l 5 } +Y ( 5 ) 

$UM2=SUM2+SIJM2 

SUM2=A0X2-HT*(Y(4USUM2+Y(6|» 

mi=o.  , 

AUX=Y(3I+Y{3J  ' 

AUX=AUX+AUX  ' 

ZC2)=SUM2-HT*(YU)+AUX+Y(4}) 

Z(3 1-SUMl  * 

un  2 “ 

IF(NpIH— 615.5,2 

INTEGRATION  LOOP  r~”~  ‘ ■' 

2 DO  4 1=7 .NDIM.2 
SUM1=AUX1 

SUM2=AUX2 * = ” 

AUX1=Y  1 1— 1 )+Y { I—l ) 

_AUX1=AUX1+AUX1 

AUXl  = SUMl+HT*{YlT-2}+AUXr+YUi  I ' ~ 

2(l-21=SUMl 

IFU-NDTM)3,6,6 


00009320 
00009330 
.00009340 
“00009350 
00009360 
00009370 
' . 00009380 
00009390 
00009400 
00009410“ 
00009420 
0.000  9430 
00009440' 
00009450 
00009460 

'06669470 

00009480 
00009490 
00009500 
00009510 
00009520 
00009530 
00009540 
00009550 
000  6.95  60 
OOO.O957O 
, 000095,80 
■ 6ob095j9o" 

0660*9600 

'66op96io 

Q0009620 
00009630 
bO009'64O 
00009650 
00009660 
00009670 
0000*9680 
00009690 
0000  9J00 


0Q31 
ISN  0032 
ISN  0033 
ISN  0034 
ISN  0035 
ISN  0036 
ISN  0037 
ISN  0036 
IS*  0039 
ISN  0040 


ISN  0041 


0042 

0043 

0044 

0045 

0046 

0047 
0046 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 


3 AUX2=Y(I  >+Y«U 
AUX2=AUX2+AUX2 

AUX2=SUM2+HT*f  YU -I ) *AUX2+YC  !♦!  ) ) 

4 Zli-I)=SUM2 

5 Z(NDIM-1)=AUX1 
Z (NCIMl— AUX2 

return"  * ~ ' — 

6 Z C NDI M— I ) =SuH2 
ZfNDIH)=AUXI 

RETURN  “ 

END  0E  INTEGRATION  LOOP 

T_ifTnoim-"3  ) 12*  iwif  " ' 

NOIM  IS  EQUAL  TO  4 OR  5 

6 SUM?=L.l 25*HT*  ( Y ( l )+Y ( 2 l+Y '( 2 I *Y  ( 2 7 +Y ( 
SUM1=Y(2)+Yt2> 

SUMl-SUHl+SUMl 

SUMI=HT*(Y<I)+SUMi+Y<3> > 

Z(1)=0. 

AUXI=YC3):»Yt3) 

AUY1=AUX1+AUX1  “ |*“ ~ ~ 

Z(2)  = SUN2-HT*  (YI2)+AUXl4YI-t>  I 
IF<NDIM-5>10,V,9 
9 AUX1— Y (4)+Y(4)  ~\T:“  ~ " 

AUX1=AUXI+AUX1 

2 { 5 ) -SUH1-»HT*  ( YJ3 ) ♦AUX  i*Y  ( 5 )) 

10  Z(3)=SUM1  " 

Z(4)=SUH2 

return 


3J +Y ( 3 )+Y (3 ) +Y(4)  ) 


ISN  0057 
ISN  0058 
ISN  0059 
ISN  0060 
ISN  0061' 


NDIM  IS  EQUAL  TO  3 

^UHI=HT*(1.254Y(l)+Y{2J+Y(2i-.25*Y(3) 
SUM2  = Y(2  )+Y(  2~)  “ ' ~ 

SUM2=SUH2+SUM2 
Z(3j=HT* < Y | II ) +SUM2+Y  < 3 ) ) 

zi  11=^0: ~r 


ISN  0062  Z(2)=SUM1 

ISN  0063 12  RETURN 


00009710 
00009720 
00009/30 
00009740 
00009750 
00009760 
00009770 
00009780 
00009790 
0 0009806 
00009810 
00009820 

oooovaio 

00009840 
00009850 
00 0098 60 
00009870 
00009880_ 
00009890 
00009900 
00009910 
00009920 
00009930 
00009940 
00009950" 
00009960 
00009970 
0u009980 
00009990 
00010000 
60b i 00 10 
00010020 
00010030 
00010040 
00010050 
00010060 
00010070 
00010080 
00010090 


ISN  0064  END 

.♦OPT IONS  IN  EFFECT* 

> 

♦OPTIONS  IK  EFFECT* 


NAME  — HA  I NtOPT— Pit  L 1 N E CNJT-41  , S 1 2 F =00 00  K , 


♦statistics*" 


SQURC t .EBCDIC, NOLIST  , NODECK, LOAD »NOMAP, NDED1T , 1D»N0XR£F 

1234 


- SOURCE  STATEMENTS  = 6 3 » P ROGRAM  SI2f""= 

♦STATISTICS*  NO  ' DIAGNOSTIC^  GIF  HE  RATED 
******  END  OF  COMPILATION  ******  > 


I 17K  BYTES  OF 


vO 

I 


00010100 


, e 

CORE  NOT  USED 


vD 

tv> 


LEVEL  21.7  I JAN  73  ) 


as/360  FORTRAN  H 


ISN  0002 


ISN 

ISN 

1SN 


ISN 

ISN 


0003 

0004 

0005 


0006 

0007 


ISN  0008 


COMPILER  OPTIONS  - NAM£=  MAIN,OPT=0l.LlNECNT=4i,SrZt=00o6k, ” “ 

SOURCE, EBCDIC, NOLI  ST  »NGUfcCK»LOAD,NCKAP»!IQtOI TflO  »NOXREF 
SUBROUTINE  0P2  (lPIC,IfcRR,ITfcR,NCONF,ICHOSE,NCHOSE ,N0WAT1  OOOIOHO 

DIMENSION  1PICI2)  * ICH0SEI2  >CONF(  6)  , M'tH0Sfc'(2 ) ‘ "00010120’ 

COMMON  /UStR3/BTRMX,SCSFL,lPRFL,0PSHS,ARRAYNf 11,3),NMSEQ  00010121 

COMMON  /BIHN/WT,VOL,DT,Li,DX,  DY ,0Z, Xj , Y J , ZJ »R J, FF, TI ,PL,PLMIN , 00010130 

* LMBDD, AREA, SATL6.WATEfNCtACSWp",HARNwf,THCMWT,CDNVWT,'™KWT;pASSfR, 00010131 

* SATTwT , T PRIM, IB TLUC, RADA, RAOAB, RAT, HTRPWR,HTRPRB,  00010132 

* HPT,HrPIPE,VCHP,HTPTtFC,XN2EftO,COMRT,ACSSN,BITRATI2).  00010^33 

* EOBLG tSAPOLC »SATWT “ ' 00010134 

COMMON  /DbCUM/XDB (30 ) ,DaTAB( 55 ,90)  00010150 

COMMON  /CHOSE/ltHO SG( 60) ,NCHDSG(60 1 , COST (5,60) ,REL(o,60) , 00010151 

* THM(4, 601, ARRAY! 11,60), SKD(7»60i  ' “ “00010152 

COMMON  /DpITAB/  HSRT( 60) , TLPTri 1601 ,GKANHC60 ) ,XSRT(60) ,TLPTL160 > ,GR000 10160 


ISN  0005 


ISN  0010 


sO 

»-* 

sO 


1ANL (60) 


COMMUN  /PRTCOM/ACCRC V , Cl STAR, IREL  »MMOOLD ,TRUNC  »ITRUNP»  DE , TE* 

* TOOLR,OCR ,SEIR,PMR,PE,PU,TOOLU,QCP,SEIP,PMP,SATR,SATINV,MER, 

* MEIN V,PA YR,PAUINV ,P AYGUL , GSF ,XLTOT ,CTOT ,FE?R,F£E INV,DPTE , XVEST, 

* GPSjSKTAU(6) , HOLD (60) » TSRT1 *AN»TS,DS» AM* TF,BF»TC, TA * TE ,TQT0P5 
DATA  ACSRT, ACSOP#COMOP, 0PREQ/10* ,50.,6t • ,4./ 

- INPUTS  FOR  DATA  PROCESSING  SUBSYSTEMS  - OPI 


c 

c 

INPUT 

CDPI 

T 

0 

SOURCE 

UNITS 

DESCRIPTION 

c 

VAR. 

IN. 

c 

c 

GRANH 

36 

R 

Y 

ALL 

S/S 

GRANULARITY  HIGH  RATE  TABLE 

c 

HSRT 

35 

R 

Y 

ALL 

S/S 

SPS 

SAMPLE  RATE  HIGH  TABLE 

c 

TLPTH 

34+35 

H 

Y 

ALL 

S/S 

NO  OF  A MOL  AND  DIG  POINTS  HIGH 

c 

GRANL 

40 

R 

Y 

ALL 

S/S 

GRANULARITY  LOW  RATE  TABLE 

c 

XSRT 

39 

R 

Y 

ALL 

S/S 

SPS 

SAMPLE  RATE  LOW  TABLE 

c 

tlptl 

37+38 

R 

Y 

ALL 

s/s 

NO  OF  ANOL  AND  DIG  POINTS  LOW 

c 

SCSFL 

R 

U 

SPECIAL  COMMAND  SYNC  FLAG 

c 

TOTCM 

30T032 

R 

DB 

TOTAL  NO  OF  COMMANDS 

00010170 

00010171 

00010172 

00010173 

00010174 

00010181 

00010190 

00010200 

00010210 

00010220 


00010230 

00010240 

00010250 


00010260 

00010270 

00010260 

00010290 

00010300 

00010310 


C 

C 


TTCPL 

TPRFL 


J2 


R 

R 

R 


C 

c 

c 


ACSSN 

COMRT 

OPSMS 


R 

R 

R 


MACRO 

U_ 

sc  " - 

COMM 

U 


NCUNF13)  - SPEC  OR  GlN  COMPUTER  FLAGOOG 10320 


SEC-1 


TIME  TAG  COMMAND  FLAG 
TFLEM  PROCESS  FLAG 
SUM  OF  ACS  SENSOR” 
COMMAND  RATE 
MISSION  OPS 


00010330 

00010340 


00010350 

00010360 

00010370 


7 ISN  0011 
ISN  0012 
ISN  0013 
' ISN  0014 
_ ISN  0016 
ISN  0018 
“T5N_0019 
ISN  0020 
ISN  0021 
so  " ISN  0022 
L ISN  0023 
f ISN  0024 
ISN- 0025 

ISN  0027 
ISN  0029 
ISN .0030 
ISN  0031 
ISN  0032 
ISN  0033 

“ISN  0034" 
ISN  0035 
JSN  0036 
” ISN  003?~ 

ISN  0038 


ISN  0039 
ISN  0040 


C 

C 

C 


MISPD 


U 


C 

C 

C 


c 

c 

c 


"mission  data  pro'cVflag 


ERROR  FLAGS 

1ERR  - 1 

I ERR  = 10 
I ERR  = 100 


MUX  IS  REQUIRED 

WORD  LENGTH  GREATER  THAN  256 
-lU_A*Tt  IS  TOC  LARGE 


ItZ  : ’iooooS^r?™7fD  SVNt'  fLag^oT  eoual-to-zHo 


IERR=0  ' 
ICHOSEtU^o 
ICHQSE ( 2 )=0 


IF  (ITER  .EOT 
IF  (ITER  .£0. 
BITRAT ( 2 >— 0. 
IERR1 =0 , 
1FRR2^0 
IERR3=0 


0)  NCHOSE(iT=l 
0)  WCH0SE(2)=I 


IERR4=0 
I ERR5=0 
NEWFL=0 


IF  (NCONF (3)  -EQ.  2 iAND.  NC0KF(4>  ,GT.  3T 

* CALL  MIS(IPiC,IERR, ITER f NCONF , ICH0S6.NCH0SE ) 

2__.ANP.  NCQNF<4>  ,GT.  3»  GO  TO  110 

no  continJe 

• ANULH=0. 


I 


A^0LL=0« 

MUX=0  . 

COMPUTE  TABLES 

T0TCM=0  1 ~ 

ttcel=o 

■ NTA8H=Q 

• NTABCSO  

^^NTAB-^NOWAT*-6  !^EED  **™**************************** 

* ********  * * t**^****^***^*^ 

'~1  * 

DO  170  I=ltNTAB.  ' • 


“ 00010360 
00010390 
00010400 
00010410“ 
.00010420 
— 00010430^ 
" 00010440 
00010450 
00010460 
-”'00010470 
00010471 
00010472 
. 00010473 
.00010474 
00010476 
00010480 
00010490 
, .00010500 
00,010510 
00010520 

0001,0530 

00010560 
00010561 
00010580 
00010590 
00010600 
00010610 
00010620 
00010630 
00010640 
00010650 
00010660 
■ 00010670 
. * 00010680' 
00010690 
00010700 
" 00010710“ 
00010720 
00010730 


9-195 


ISN  0041 
ISN  0042 
ISN  0043 
ISN  0045 
ISN  0046 
ISN  0047 
TSN  0048' 
ISN  0049 
ISN  0051 
~ISN  0053 
ISN  0054 
ISN  0055 
ISN  0056 
ISN  0057 
ISN  0059 
ISN  0060 
ISN  0061 

ISN  0063 

ISN  0064 
ISN  0065 
ISN  0066 
ISN  0067 
ISN  0068  ~ 
ISN  0070 
ISN  0071 
ISN  0072 
ISN  0073 
ISN  0074 
ISN  0076 
ISN  0078 
ISN  0079 
ISN  0080 
ISN  0081 
ISN  0082 
ISN"  0084 
ISN  0085 
ISN  0086 


TQTCM=  ( ARRAY! K+Z  »I  J+ARRAY! K+3 » ij+ARRAY ( K+4*  I ) ) ♦NCHOSGf  l ) +TOTCM 
TTCFL=  tTCFL+ARRAY(K+4» I J*NCHUSG!I ) 

_ IF  C ARRAY (K+7yl ) .EQ.O.}  GO  TO  150 

NTABH=NTABH+1  ' ~ ' - 

HSrT  (NlABH  )=;»RRAY ! K+7t  I ) 

ORANh (NTA8H ) =ARRAY( K+8* 1 ) ' 

T LPTH  ( NTA  BH 1 ==  < ARR AY  f K+5  » I)+ ARRAY  C K+6  *1 j J+NCHOSGfl)  " 

150  IF  (ARRAY(K+c.,I).NE*0,»  MUX=i 

IF  ' (ARRAY (K+l j»I ) .fctf .0. ) GO  TO  160  \ 

NT*bL=NTABL+i  * _ “ “ - 

XSRT(NTA8L)=ARRAY(K+llfI) 

GRANLf NTAbL ) = ARRA  Y (K+12  » I ) 

TiPTL f NTABL)=  ! ARRAY ( K+9,1 ) +AR R A Y (K +1 0~, I )V*WCHOSGTi"»  

160  IF  |ARRAY(K+10*1) «NE.O. | MUX=1 
AN0LH=AN0LHMRRAY(K»5.Il»NCHjSGtIj^ 

170  AN0LL=ANCLL+ARRAY'<K+9,I)*NCH0SG(I)  " 

IF  (NEWFL.EQ.O)  GO  TO  240 

C *♦*»**»*♦♦*  WE  NEJED  NTABN  ♦♦♦♦♦I*************************** 

NFTABN=  NfMSEG ' “ " ” ~ 

G *********** s**************** tf******************************* 

K=.  -I 

DO  ^30  1 =1 » NT AbN  i " 

T0TCM=T0TCM<-ARRAYN(K+2tIl+ARRAYN{K+3tI)*ARRAYN{K+4»I) 

TTCF L =T TCFL+aR R AYNCK +4 , 1 > 

IF  (ARRAYNfK+7f I ) .EG.O. ) GO  TO  210  — ~ 

ntabh=nt*bh+i 

HSRT(NTABH>=AKRAYMtK»7.I ) 

GRANH  ff*T  ABri ) =aRR  AYNC  K+8t  il  " ‘ 

TLPTH  ( NT  ABH  )=ARRAYN(  K+5 , 1 ) +ARRA  YN{  K<-6  » I ) 

210 IF  <ARRAYN(K+6tI ) .ME«0. ) MUX=1 

IF  (ARRAYN(K+llvil.eO«0.)  GO  TO~226  

NTABL=4fTABL+l 

XSRT(NTABL)=ARRAYN(K+11.I1 

GRANL(NTABL)=ARRAYNCK+I2*I  ) ' " 

TLPTL(NTABL)=ARRAYN(K+9,I )+ARRAYN(K+IO,I) 

220  IF  (ARRAYN(K»10.1).NE.O.l  HUX=1 

ANOLH=ANOLH+ARRAYN ( K+5  * I ) " 

230  AN0LL=AN0LL+ARRAYN(K+9»I) 

240  CONTINUE 


00010740 

00010750 

00010760 

00010770 

00010780 

00010790 

oooioeoo 

00010810 

00010820 

00010830' 

00010840 

00010850^ 

oooice'fcb 

00010870 
00010880 
00010890 
00010900 
00010910 
00010920 " 
00010930 
00010940 
00010950 
00C1C960 
00010970 
00010980 
00010990 
0001 1000 
00011010  ' 
00011020 
00011030 
00011040 
00011050 
00011060 
00011070 
00011080 
0001 1090 
0001 1100 
O001I110 
00011120 


ISN  008  7 
TSS'  0089 

« h • 

ISN  0090 
ISM  0091 
ISN  0092 
ISN  0093 

ISN  009 & 
ISN  0097 
ISN  0098 
ISN  0099 
ISN  0100 
“H5N— 0102 
ISN  0103 
ISN  0105 
vo‘  ISN  0106 
^ ISN  0107 
£ ISN. 0108 
TsTT0109 
ISN  0110 


ISN 

ISN 

ISN 

“ISN 

ISN 

ISN 

W 

ISN 

ISN 


0111 

0112 

0114 

0115 

0116 
0117 

0119 

0120 
0122 


ISN  0124 
ISN  0125 
ISN  0126 
ISN  0127 
ISN  0128 


ANDLH — NO  OF'aNOL  PTS  IN*  HIGH”  TAB 
ANOLL  -NO  OF  ANOL  PTS  IN  LOW  TAB 
IF  (MUX.NE.O)  IFRS  1=1 

IERR=IERR4 IERR1  J~" 

COUNT  NUMBER  OF  .POINTS  OF  ALL  TABLES 
SUMT  LP=0 • 

JL=0  ' . 

btrfl=o 

IF  (BTRMX.NL.1.024E6)  8TRFL=1 

ORDER  TELEM  POINTS  BY  SAMPLt  RATE  -HIGH 
IF  (NTABH.EO.l)  GO  TO  260 
CONTINUE 

CALL  ORDER  ( NTABH, HSRT , I LP1 H, GRANH, XM2, MEDIAN f 
JL=JL+I 

IF  (JL.EQ.Z)  GU  TO  280 
DO  270  1=1, MEDIAN  . " " 

IF  (HSRTm.LF.XH2)  GO  TO  270 
HSRT( I)=H$RT< I)/2» 

TLPTHU)  =2.*tLPTH(l)  “ 

GO  TO  260 
C0.NTIJ4UE 

GO  TO  250  ' " “ 

SSR=HSRT { 1 ) 

SSR  = MAIN  FRAME  RATE 
JL=0  ’ “ | : 

IF  (NTABH. EQ.l)  GO  TO  320 . 

C0NT7NUF 

CALL  ORDER  (NTABH ♦ GRANH jTL PTH ilT^RT,X^Z ,'mWTanT 
JL=JL*1 

IF  ( JL.EQ.2)  GO  TO  320 

DO  .310  1=1, MEDIAN"  “ 

IF  (GRANH(I).LF -XM2)  GO  TO  310 
GR  ANH ( I ) =GRANH ( I ) /2. 

TLpTH  (TT=Tr*TLPTH  1 1) , ' 

GO  TO  300 
CONTINUE 
GO  TO  290 
SJJMWH=0 

DO  330  I=I,NTASH 


00011130 

00011140 

00011150 

0001X160’ 

00011170 

00011180 

00011190 

00011200 

00011210 

00011220 

00011230 

00011240 

00011250 

00011260 

00011270 

00011280 

00011290 

00011300 

”00011310 

000li-320 

00011330 

00011340 

00011350 

00011360 

00011370 

00011380 

00011390 

00011400 

00011410 

00011420 

00011430 

00011440 

00011450 

00011460' 

00011470 

00011980 

"00011490 

00011500 

00011510 
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ISN 

t 

ISN 

0129 

0130 

330 

C 

SUM WH=SUMWH+TLPTH  < I ) 
SUMWH  = NUMBER  OF  WORDS 
SUMWH=SUMWH*l„2 

00011520 

00011530 

00011540 

ISN 

ISN 

ISN 

0131 

0133 

0134 

IF  ( SUMWH. LF.256. ) GO  TO  340 

ICHOSE (1 ) =— 1 

IF.RRZ-10 

00011550 

00011560 

00011570 

ISN 

0135 

IERR-IERR+IERR2 

00011580 

ISN 

0136 

RETURN 

00011590 

ISN 

0137 

340 

P0WER=16. 

00011600 

ISN 

0138 

00  350  NN=5,fi 

00011610 

ISN 

0139 

N=N<M 

00011620 

ISN 

0140 

POWtR=POWLR*Z. 

00011630 

ISN 

0141 

IF  (POWER.GE. SUMWH)  GO  TO  360 

00011640 

ISN 

0143 

350 

CONTINUE 

00011650 

ISN 

0144 

360 

tlmwd=power 

00011660 

C 

MAIN  FRAME  LENGTH  - TLMWD 

00011670 

C 

WDLMAX  - WORD  LENGTH  TO  MAX  REQUIRED  LENGTH 

00011680 

ISN 

0145 

WDLMAX=N 

00011690 

ISN 

0146 

BIRATE=WDLMAX*TLMWD*SSR 

00011700 

ISN 

0147 

DO  370  MM=1,18 

00011710 

ISN 

0148 

N=fMM— 1 

00011720 

ISN 

0149 

TT=2.**N*7.8125 

00011730 

ISN 

0150 

IF  (TT.GE.B1RATE)  GO  TO  380 

00011740 

ISN 

0152 

370 

CONTINUE 

00011750 

w 

0153 

ICHOSE (1)=-1 

00011760 

ISN 

0154  • 

IERR3-100 

00011770 

ISN 

0155 

IERR-IERR+IERR3 

00011780 

> 

C 

I ERR  » 100  FIT  RATE  TOO  LARGE 

00011790 

ISN 

0156 

RETURN 

00011800 

ISN 

0157 

380 

BIRATE^TT 

00011810 

ISN 

0158 

BITRATU)=BIRATE 

00011815 

ISN 

0159 

JL=0 

00011820 

C 

ORDER  LOW  SAMPLE  RATE 

0001 18 3C 

ISN 

0160 

IF  (NTABL.EQ.i)  GO  TO  420 

0001 184C 

ISN 

0162 

390 

CONTINUE 

00011850 

ISN 

0163 

CALL  ORDER  (NTA6L»XSR1 *TLPTL»GRANL»XM2  * MFD I AN ) 

00011860 

ISN 

0164 

JL=JL+1 

00011870 

ISN 

0165 

IF  (JL.Ew.2)  GO  TO  420 

00011880 

ISN 

0167 

DO  410  I=1*MEDIAN 

00011890 

ISN  0168  ‘ 400  IF  IXSRT(IKLe‘.XM2  ) 60"  TO  4X0  ' 00011900 

ISN  0170  XSRT(I>=XSRTU  J/2.  00011910 

iSN^m  ILPTUiJrTtPTtd)^.  0001  IS  20 

ISM  01?2  . " jSO  TO  400  ' ‘ ' 000 11930™ 

ISN  0173  410  CONTINUE  . 00011940 

1$M  0174  60  TO  390  _ * ' 00011950 

ISN  0175  426“  SFR~XSRT(i  j - — - - ~ 000ll960” 

C SFR  = HIGHEST  RATE  IN  LOW  KATE  TABLE  00011970 

ISN  0176 _SF«-~_SSR/SFK  „ _ __  00011980 

C " SFL  SUb  FRAME  LENGTH  00011990" 

TSN  0177  N=5  - 00012000 

ISN  0176 IF_  (SFL.LE,2.**Nt  GO  TO  440  00012010 

ISN  0180  N=7*” ” “00012.020 

ISN  0181  IF  ISFL.G6„2.**N>  GO  TO  440  00012030 

ISN  ,018 j DO  430  N=5»7  00012040 

~1W  0184  “ ‘ NP1=N+1  “ * OOOlZOSO 

ISN  0185  IF  (SFL.GE.2.**N.AN0„SFL.H;-2.**NP1)  GO  TO  440  00012060 

ISN  0187  430  CONTINUE  00012070 

'f  ISN  O188  440  SFL«2.’**N  ~ - _ 00012080 

3 ISN  0189  ,SUMUL=0.  , 00012090 

00  ISN  0190  DO  . 450  l - 1 »NTABL  ' 00012100 

“ ISN  0191  450“  SUKWL=~SUMWL+ftPTL<lV  ' " ' ” 00012“ll0" 

ISN  0192  SUMML=SUNWL*1,2  00012120 

ISN  0193 NSU8PR=SUMWL/SFL*1  000 12130 

C ( l j“”Ei  T P ATE  * " TT  " ~ " 00012140 

C (2)  WORD  LENGTH  WOLMAX  OQ01215O 

. , C_ (3J  NUMBER  QF  M/F  WORDS  _ _ TlMWO_  00012160 

' C “(41  NUMBER  OF  SUBFRAMES  ~ “ NSUbFR  “ “ 00012170"" 

C (51  NUMBER  OF  WORDS  PER  S/P  ’ SPL  00012160 

**  ' ‘ C (6)  NEED  FOR  DIGITAL  MUX  MUX  00012190 

C •'  ” " ' 00012200 

C SPECIAL.  COMMAND  SYNC  FLAG  00012210 

ISN  0194  IF  tSCSPL.Nt.O.i  IERR4=1000  00012220 

IS!T0l96  " ‘ I£RR=I£RR+1FRR4  " * “00012230“ 

ISN  0197  T0TCM=T01CM*i,s>  00012240 

ISN  0198 &D^0JW=U1G0 00012250 

ISK  0199  N=NN  ' ' “ ' 00012260 

ISN  0200  IF  (T0TCM.Lfc.2.**N)  GO  TU  470  00012270 

ISN  0202  46G  CONTINUE  __  ___  00012280 
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ISN'  0203 
1SN  0204 
ISN  0205 
ISN  0206 
ISN  0207 
ISN  0208 
ISN  0210 
ISN  0212 
ISN  0213 
ISN  0214 
ISN  0215 
ISN  0217 
”iSN  0218 
ISN  0219 
ISN  0220 
ISN  0221 
ISN  0222 
ISN  0223 
ISN' 0224 
ISN  0225 
ISN  0226 
ISN  0228" 
ISN  0229 
ISN  0230 
ISN  0231 
ISN  0232 
ISN  0233 
ISN  0235 
ISN  0236 
ISN  0238 
ISN  0239 
ISN  0241 
ISN  0242 
ISN  1)243 
ISN  0245 
ISN  0246 
ISN  0247 
ISN  0248 
ISN  0249 


470  T0TCM=2.**N  ‘ 

C0WDLN=N 

M=NC0NF (31 

GO  TO  (480,500)*  M 
480  TLM0PS=0 

IP  (TPRFL.NE.O.)  TLMfJPS=TT*OPRE  G/WDLMAX 

IF  ( TPRFL. Nfc.O.  ) GO  TO  490  ' 

JI-IDB{ 1 ) + l 

IPIC ( 2 )=J1 

ICH6SF(2)=OATA8(j.f Jl)  ‘ “ ~ 

IF( ITEk.EG.O)  NCHOSE (2 )=  I 

WT=  HT _+_NC HOSE  (.2  ) *0 ATa b U 3 , J 1 J 

VOL=VOL  ♦ NCH0Sfc(2)*DATAB(24,JI) 

PL=  PL  + NCHOSE(2)*OATAE(16, Jl) 

PtMlN=  PLHIN  + NCH0Sfc(2)*DATA8{ 16,Jll 

490  CONTINUE  

ACSOPS=ACSSN*ACSRT*ACSOP 

CM OOPS =CQMRT*CPMOP 

TOTOPS=TLMOPS+ACSOP'S+CMbOPS+bPSMS 
TO  TOPS=TOTOP$  n • 2 * 1 . 5 
_500  IF  (ITER.NE.O)  GO  TO  510 

IERR^O"  

NEOOI P=2 

ICHOSE ( 1 )=0  1 

510  L-l  ’ 

J1E=IDB(M) 

IF  (IPIC(L).NE.O)  GO  TO  520 

Ji=i  7 ’ 

IF  (M.NE.l)  Jl=lDB(M-l )+l 
GO  TO  540 

520  IF  (ITFR,E0*0)  GO  fcT'5~3b  ‘ ~ " 

Jl-IPIC(L) 

GO  TO  540 

530  IF  (J1.GE.J1E)  GO  T0570  ' 

J1=JPIC(L)+1 

540  HARPAR=OATAt (6, J1 )*1000. 

GO  TO  (560^550) , M ' “ 

550  IPIC(L)=J1 

ICHQSE(L )-DATaB( 1 , J1 ) 


00012290 

00012300 

00012310^ 

00012320 

00012330 

00012340 

00012350 

00012360 

00012370 

00012380' 

00012390 

00012400 

00012410 

00012420 

00012430 

00012440 

00012450 

00012460 

00012470 

00012480 

00012490 

00012500 

00012510 

00012520 

00012530 

00012540 

00012550 

00012560 

00012570 

00012580 

00012590 

00012600 

00012610 

00012620 

00012630 

00012640 

00012650 

00012660 

00012670 


ISN  0250' 
ISN  0252 
ISN  0^53 
* ISN  0254 
ISN  0255 
1 , ISN  0256 
ISN  0257 
ISN  0258 
ISN  0260 
' I SN  0262 
ISN  0263 
ISN  0264 
” . ISN  0265‘ 
ISN  0266 
A,  ISN  0267 
g ISN  0268 


IF(ITER.EQ.O)  NCHOSL (L )— I T”"' 

WT=  WT  + NCHQSt (L)*DATAb(23»JI) 

VOL-  VOL  + NCHOSC  ( U*0ATAb(24»Jl  J 

PL=  PL  V ' N C HO S E C Ll *D AT  A 6 Cl 6* J 1 } ‘ “ " 
PLMIN=  PLM1N  + NCH0S6r(  LI*DATAb<  18*  JL) 

RETURN 

560  HARPAR=DATAF{6» Jl)*1000.  ' 

IF  ITOTOPS.LC.HARPARJ  GO  TO  550 

IF  < J1»GE.J>IE  ) GO  TO  570 

Ji=jl+1  ' — 

GO  TO  560 
570  IERR5=10000 

IERR=IERR+IERR5  — 

I CHOSE ( L ) =— 1 
RETURN 

END  


♦OPTIONS  IN  EFFECT* 


♦OPTIONS  IN  EFFECT* 

T \ 

"♦STATISTICS* 


NAME=  MAIN*»PT-Ol,LlNECNT=41*SIZE=O0OQKt 

SOURCE  *EBC 01 C»NOL 1ST* NUDECK*  LOAD »NQMAP*N0ED1T* ID  *NGXR£F 


SOURCE  STATEMENTS'"^" 


267  » PROGRAM  SIZE  = 


514o 


00012680 
00012690 
00012700 
00012710 
00012720 
00012730 
00012740 
00012750 
OOO 12760 
00012770 
00012780 
000127.90 
00012800 
00012810 
00012820 
000 f 2830 


♦STATISTICS*  NO  DIAGNOSTICS  GENERATED 
******  END  OF  COMPILATION  ****** 


81K  BYTES  OF  CORE  NOT. USED 


LEVEL  21.7  ( JAN  73  ) 


OS/360  FORTRAN  H 


COMPILER 


ISN  0002 

ISN  0003 
ISN  000^ 
ISN  0005 
ISN  0006 
ISN  0007 


0009 

0010 
0012 

0013 

0014 

0015 

0017 

0018 

0019 

0020 
0022 

0023 

0024 

0025 

0026 

0027 

0028 
0029" 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 


vo  ISN 
w ISN 
2'  ISN 


OPTIONS  - NAME=  MAlN,OPf=Ol *LINECNt=41^SIZE=OOOOK»  — - 

SOURCE, EBCDIC*  NOLI ST » &GDECK » LOAD* NOMAP tMOEOIT* ID .NOXREF 
SUBROUTINE  ORDER  ( N. A. 8.C.XM2. MEDIAN J 
ORDERS  ARRAYS  AND  GETS  MEDIAN  VALUES  ' - 

DIMENSION  A(  1 > * B(l|,  CIU 
_ MEDIAN=N/2 

KK=MEDIAN*2  " ' - ■ 

KKK=2 

IE  (KK.Nfc.N)  KKK=1 

KKK  = I 7 ODD  ' NUMBER  OF  POINTS" ' “ 

DO  20  1 = 1, N 

IF  ( A ( I ) .EQ.O. } GO  TO  20 

XLG=A(I)  “ — ■ 

JJ=I 

00  10  J=ItN 

IF  (XL&.GE.A< j) ) GO  TO  10  “ 

XLG=A(J) 

JJ=J 

CONTINUE  ' 

IF  (I.EQ.JJ)  GO  TO  20 

AS.=A  (II  * 


♦OPTIONS  IN  EFFECT* 

f 

♦OPTIONS  7n~  EFFECT* 


BS=B(I) 

CS=C(I) 

A(II=A(JJ) 

B ( I )=B( JJ ) 

C(I»=C(JJ) 

A( JJ)=AS 
6(JJ)=8S 
C( JJ)=CS 
CONTINUE 

"GO  TO" (30,40 ) , KKK" 

XM2=A (MEDIAN) *2. 

RETURN 

XM2=A( MEDIAN )+A(KEDIAN+l) 

RETURN 

END 


NAME=  MAIN,0PT=01, LINECNT=41,SIZF=00Q0K» 


00012840 

00012850 

00012860 

00012870 

00012860 

00012890 

00012900 

00012910" 
00012920 
00012930 
00012940 
00012950 
00012960 
"00012970  ‘ 
00012980 
00012990 
00013000 
00013010 
00013020 
00013030 
00013040 
00013050 
00013060 
00013070 
00013080 
00013090 
00013100 
00013110 
00013120 
00013130 
00013140 
00013150  ' 
00013160 
00013170 


50URC E, EBCDIC ,rtOL 1ST,N0DECK , LOAD  ,N0MAP7N0"eDIT  * 1 0 , NOXREF  ' 


♦STATISTICS*  SOURCE  STATEMENTS  - " 3<^VPR0GRAM  *S IZb’  = 

♦STATISTICS*  NO  DIAGNOSTICS  GFNbRATED 
******  END  OF  COMPILATION  ****** 
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12&K  BYTES  OF  CORE  NOT  USED 


sD 

ro 

o 

tv) 


LEVEL  21.7  < JAN  73  ) 


OS/360  FORTRAN  H 


ISN  0002 
1SN  0003 
ISN  0004 
ISN  0005 


ISN  0006 
ISN  0007 


COMPILER  OPTIONS  - NAME=  MAINtOPT=01,LlNECW=41,SIZE=M)000Kt  “ 

‘ • SOURCE, EBCDIC, NOLIST ,NODECk,LOAO,NQMAP,«0EDIT, ID, NOXREF 


SUBROUTINE  MIS  ( I PIC , I ERR , ITER ,NCONF, ICHOSE»NCHOSE ) 00013180 
, DIMENSION  1PIC ( 2 )Y“lCHUSE(2 ) , NCUNF<6)»  NCH0SEI2)  “ 00013190 
COMMON  /USER3/BTRMX, SCSFL, TPRFL »OPSM(S*  ARmAYNI 11 ,3 ) »NMSEQ  00013191 


* LMBOD,A REA, SATLG, WATE ,NC, ACSWP ,HARNMT ,THCMHT,CO»VNT ,TNKMT , PASSTR, 000X31 93 

* SATTWT,TPRIM,IBTLOC ,RAOA,RADAB*RAT,HTRPWR ,HTRPRB , 00013194 

* HPT,HTPIPE,VCHP,HTPT,FC,XNZERO ,COHRT, ACSSW, BITRAT( 2 ) , 00013195 

* EQbLG  jSABOLC,SAT  WT  ” “00013196 

COMMON  /D6G0M/I0B 1 30 ) *DATABt  55 ,90)  00013200 

_ COMMON  /CH0SE/ICHQSGt6Q) ,NCHUSGI60) , COST (5,60),REL(6 ,60), 00013210 


* THMC4,60) , ARRAY  1 1 1,60 ) ,SKD(7,60 ) 00013220 

ISN  , 0008  , COMMON  /Ml  STAB/  H5RTI6Q I ,TLPTH(60)  ,GRANH(60  ) ,XSRT(60 ) ,TLPTL{6Q)  ,GR0ti013230 

! 1ANLI60) 00013240 

C INPUTS  FOR  DATA  PROCESSING  SUBSYSTEMS  - HIS”  '*  00013260 

C 00013270 


c 

INPUT. 

. CDPI 

T 

SOURCE 

UNITS 

DESCRIPTION 

00013280 

, • c 

VAR. 

tn. 

00013290 

c 

00013300 

c 

GRANH. 

36  ■' 

R 

Y 

ALL  S/S 

GRANULARITY  HIGH  RATE  TABLE 

000 133 id* 

c 

HSRT 

35 

R 

Y 

ALL  S/S 

SPS 

SAMPLE  RATE  HIGH  TABLE 

00013320 

c 

TLPTH 

34+35 

R 

Y 

ALL  S/S 

NO  OF  ANOL  AND  DIG  POINTS  HIGH 

00013330 

c 

GRANL 

40 

R 

Y 

ALL  S/S 

GRANULARITY  LOW  RATE  TABLE 

00013340 

c 

XSRT 

39 

R 

Y 

ALL  S/S 

SPS 

SAMPLE  KATe  LOW  TABLE 

00013350 

c 

TLPTL 

37+38 

R 

Y 

ALL  S/S 

NO  OF  ANOL  AND  DIG  POINTS  LOW 

00013360 

C 

SCSFL 

R 

U 

SPECIAL  COMMAND  SYNC  FLAG 

00013370 

c 

TOTCM 

30T032. 

R 

DB 

TOTAL  NO  OF  COMMANDS 

00013380 

c 

COMTY 

R 

MACRO 

NCONF(  3 ) - SPEC  OR  GE*U  COMPUTER 

FLAG00013390 

c 

TTCPL 

32 

R 

TIME  TAG  COMMAND  FLAG 

00013400 

c 

TPRFL 

R 

U_ 

TELEK  PROCESS  FLAG 

00013410 

c 

ACSSN 

R 

SC 

SUM  OF  ACS  SENSOR 

00013420 

c 

COMRT. 

R 

COMM 

COMMAND  RATE 

00013430 

c 

CPSMS 

' R' 

U 

SEC-1 

mission  OPS 

00013440 

c. 

MISPD 

I 

U 

, 

MISSION  DATA  PROC.  FLAG 

00013450 

c 

. 

, 

*» 

00013460 

c 

~errM~ 

FLAGS 

00013470 

c 

I ERR  = 

1 

MUX  IS  .REQUIRED 

00013480 

Q I ERR  =.  10 WORD  LENGTH  GREATER  THAN  256  _ 00013490 


ISN  000 V 
ISN  0010 
ISN  0011 
ISN  0012 
ISN. 0013 
ISN  0014 
ISN  ,0015 

ISN  0016 

ISN  0017 

ISN  0018 
ISNOOlS*' 
ISN  0020 
ISN  0021 

vO 

^ ISN  0022 


ISN. 0043 
ISN  0044 


rni:Ul 


* 100  BIT  RATE  IS  TOO  LARGE  " 

1ERR  = 1000  SPECIAL  COMMAND  SYNC  FLAG  IS  NOT  EQUAL  TO  ZERO 
I ERR  - 10000  _J1 

IERR=0 

IERR1=0 _ 

ICPR3=0 

IERR4=G 

IERR5=0  - - — • 

AN0LH=0. 

ANQLL=0. 

COMPUTE  TABLES 
TOTCM=Q 

NTABHssO 

NTABL-0 

******■***.**  WE  NEED  NTAlfi  **  ♦**♦*'* ***** * ************ * ** 

NT  ABSf=  NMSFQ 

_***»»* ****************************************************** 

K=  -1  

00  60  1=1 tNTABN 

__T0ICM=T0TCM+ARRAYN(K+2,1)+ARRAYN|K+3;I)+ARRAYN(K+4.T) 

TTCFL=TTCFL+ARRAYN(K+4, 1)  “ 

IE  (ARRAYN(K+7tl)-EC.O.)  GO  TO  40 
NTABH=NTABH+1 

HSPT  ( N T AbM ) = AR RAYNTk  +7, 1 ) " 

GRANHCNTABH)=ARRAYNCK+8»1)  1 

TLPTH ( NT ABH ) =AftRAYN(K+5* I ) *ARR A YN  < K*6 . I ) 

!»=  ( ARRAYN  ( K+6fl‘)  .NE  .OTTMUX=]i 

IF  (ARRAYN(K+lIfIl.EQ,0.)  GO  TO  50 
NTA6L-NTABL+1 

X^TTNTABL)=ARRAYfnK  + lIti  jf  ~ • — 

GRANUNTAbL)=ARRAYNCK+12f  I } w 

TLPTUNTA  6L  IfARRA  YN  ( K>9, 1 ) +ARRAYN  ( K*IQ, I ) 

. IF  C ARRaYNTK+10,'1  ) .NE.O.  > MUX=1  

ANOLH=ANOLH+ARRAYN (K+5,1) 

AN0LL=ANULL+ARRAYN(K't-9,I) 


00013500 
00013510 
G0013520 
’ "00013530 
00013540 
00013550 
00013560“ 
00013570 
000 1.3580 
00013590 
00013600 
__  00013610 
00013620 
00013630 
00013640 
00013650 
00013660 

OOP 13670 

00013680 
0001.3690 
00013700 
00013710 
00013720 
00013730 
“’00013740 
00013750 
00013760 
00013770 
00013780 
00013790 
00013800 
‘ "OCO 13810 
C0013820 
00013830 
00013840 
000X3850 
00013860 
00013870 
00013880 
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C ANOLH — NO  Of-  ANOLPTS  IN  HIGH  TAB 

- C ANOLL  -NO  OF  ANOL  PTS  IN  LOW  TAB 

ISM  0045  IF  IMUX.NE.0)  IERRl=l 

ISN  0047  ' IERR  = IFkR  + IERRi  ' ‘ “ " 

C COUNT  NUMBER  CJF  POINTS  OF  ALL  TABLES 

ISN  0046  SUM1 LP=0« 

ISN  0049  jT=0  ” 

ISN  0050  BTRFL=0 

ISN  0051 IF  ■ ( PTRMX.NE  . 1 «024E6)  ejRFL=l 

C ORDER  tELEM  POINTS  BY  SAMPLE  RATE  -HIGH-'' 

ISN  0053  IF  (VTABH.EO.l)  GO  TO  100 

ISN  0055 70_ CONJJNUF. . 

ISN  0056  CALL  ORDER  (NTABH.HSRT, TLPTHtGR^HfX^^rtUAflT" 

ISN  0057  JL=JL+1 

ISN  0058 IF  ( JL.EQ.2)  GO  TO  ICO 

ISN  0060  0d~~90  I = i,HLDIAN~  • ’ ‘ ~ 

ISN  0061  60  IF  (HSRT(I).L£-.XM2)  GO  TO  VO 

ISN  0063 HSRTU)=HSRT(I  J/2. 

ISN  0064  ~TLPTHm=2.'*TLPfHU>  ' ~ 

ISN  0065  GO  TO  80 

ISN  0066  90 CONTINUE 

ISN  0067  “ GO  TO  70  ” ' — 

ISN  0068  100  SSR=HSRT(I) 

C SSR  = MAIN  FRAME  RATE 

ISN  0069  IF  (NTABH.EQ.l'f  GO  TO  140  " 

ISN  0071  . JL=0 

ISN  0072 HO  CONTINUE 

ISN  0073  CALL  ORDER  (NTA&H, bRANH » TLPTh, HSRT  , XM2~, MEDIAN » 

ISN  0074  JL=JL+l 

ISN  0075 IF  (JL.EQ.2)  GO  TO  140 

ISN  0077  DO  l30‘  l=lfMFDlAN  ““  — 

ISN  0078  120  IF  (GRANH ( I I . LE. XM2 I GO  TO  130 

ISN  0080 GRANH(I)=GRANH(I|/2. 

ISN  0081  TLPTH  ( I ) =2.*TLPTHTf)  ' 

ISN  0082  GO  TO  120 

ISN  0083 130  CONTINUE 

ISN  0084  GO  TO  ilO"  r “ r 

ISN  0085  140  SUHWH=0 

ISN  0086 DO  150  I=1,NTABH 


00013890 

00013900 

00013910 

00013920 

00013930 

00013940 

00013950 

00013960 

00013970 

00013980 

00013990 

00014000 

00014010 

00014020 

00014030_ 

00014040 

00014050 

00014060 

00014070 

00014080 

00014090 

00014100 

00014110 

00014120 

OOC 14130' 

00014140 

00014150 

00014160 

00014170 

00014180 

00014190 

00014200 

000J_42ip_ 

00014220 

00014230 

00014240 

00014250 

00014260 

00014270 
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I$N  0087 

150 

“ sumwh=sumwh+Tlpth ( I ) 

*“*  - — - — 

C 

SUMWH  .=  NUMBER  OF  WORDS 

ISN  0088 

SUHWH=SUMWH*1.2 

ISN  0089" 

If  (SUMWH. Lfc. 256. > GO  TO 

160 

ISN  Od9l 

ICH0SE(1)=-1 

- 

ISN  0092 

IERR2=1G 

ISN  0093 

r&RR=ir-RR  + IhRR2“ 

- - . - . • * * ■ 

.ISN  0094 

RETURN 

ISN  0095 

160 

P0WFR=L6.  ‘ 

ISN  0096 

DO  170  NN=5,8 

— - . — 

iGN  0097 

N = NN 

ISN  0098  * 

POWER -POWER+2 . 

“ISN”  0099" 

“IF"  ( PGWE R . GF . SUMWH  ) GO  TO 

180  ' ' 

ISN  0101 

170 

CONTINUE 

ISN  0102 

ieo 

• T LMWD-POWER 

c 

MAIN  FRAME  LENGTH  - 

tlhwd" 

C 

WDLMAX  = WORD  LENGTH 

TO  MAX  REQUIRED  LENGTH 

ISN  0103 

- WDLMAX=N 

, ISN,  0104 

LrRATE=WDLMAX*TLMwf>*SSR 

> ISN  0,105 

DO  190 

LlSN  0106 

* N=MM-1 

ISN  0107  >'  ~ TT=2i**N*7.6T25 ‘ 

ISNOlOa  IF  (TT.GE.blRATE ) GO  TO  200 

ISN  0110 -190  CONTINUE 

I S N 0111  " ICHOStfl  )=-~“ 1 T 

ISN  0112  1 F RR3=100 

ISN  0113 I6RR=lERRt-lLRR3 

C ” TERR  ="100*  BIT  RATE  TOO  LAFfGE"“  ' " 

.ISN. 0114  RETURN 

jSN  Ollb  200  BIpATE^TT 

ISN  0116  ”BITRAT<2)-BIRA7E  ■ “ ~~  

ISN, 0117  IF  (NTABL.EQ.l)  GU  TQ  240 

ISN  0114  , ,Jt_— 0 

C'  'ORDER  LOW  SAMPLE  "RATE"  ' 

ISN  0120  210  CONTINUE 

ISN  0121 CALL  ORDER  (NI A8L  » X5RT»T LPTL  »GRANL» XM2*MEDIAN ) 

ISN  0122  JLEJl+T'  " 

ISN  0123  IF  (,JL.tQ*2)  GO  TO  ^40 

ISN  012  fa . DC  Jt30  I-i  fMLDI  AN 


00014280 
00014290 
00014300 
06014310 
00014320 
00014330 
, '•  .00014340 
00014350 
. 0001.4360 
000143  70" 
00014380 
. 00014390 
000,14400 
, 00014410 
. 00014420 

"00014430"" 
00014440 
. 00014450 
00  01 4,460“ 
00014470 
00014480 
”"60014490 
00014500 
00014510 
00014520 
. .00014530 
0001,4540 
00014550 
00014560 
. 00014576 
000 145.75  ‘ 
00014580 
00014590 
\"'0'00 14600 
, 00014610 
00014620 
”0001 4,6 30 
000.14640 
00014650 
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ISN 

0126 

220 

ISN 

ISN 

0128 

0129 

ISN 

0139 

ISN 

ISN 

0131 

0132 

230 

ISN 

0133 

~240 

ISN 

0134 

C 

ISN 

0135 

C 

ISN 

0136 

ISN 

0138 

j 

ISN 

0139 

ISN 

0141 

1 

ISN 

0142 

1 

ISN 

01*3 

ISN 

0145 

250  l 

ISN 

ISN 

ISN 


0146 

0147 

0148 


isn 

ISN 
ISN 


0149 

0150 

0151 


ISN  C152 
ISN  0153 


ISN  0154 
ISN  0155 
ISN  0157 


ISN  0158 
ISN  0159 
ISN  0160 


260 


IF  (XSRTf I ) .LE .XM2 ) 60  TO  230  ' - 

XSRT(I )=XSRT(l)/2. 

TLPJX(I)=TLPTL(1)*2. 

GO  TO  220  ------- 

CONTINUE 
GO  TO  210^ 

SFR=XSRT  ( 1)  " *■'  “ 

SFR  = HIGHES1  RATE  IN  LOW  RATE  TABLE 
SFL=SSR/SFR 

sfl  sub  frame  length  “ " ■ 

N=5 

IF  <SFL.Lt.2.**N)  GO  TO  260 

N=7 — “ 

IF  ISEL.GE  «2.**N  J GO  TO  260 
OO  250  N=5 *7 

NP1=N+1  

IF  (SFL.G£.2.**N.AND,SFL.LE.2.**NP1I  GO  TO  260 
_C0NT1  NUE  __ 

SFL»2-**N  ' ‘ ' 

SUMWL=Q. 

DO  270  I=1,NTABL 


270 


C 

C 

C 


c 

c 

c_ 

c 


SUMWL=SUMWL+TLPTUI ) 
SUMWL=SOMWL*1.2 

NSUEPR=SUhWL/SFL*l 

(1)  BIT  RATE  " 

12)  WORD  LENGTH 
_(3J  NUMBER  OF  M/F  WORDS 

(4)  NUMBER  OF  SUBFRAMES  ' “ 

(5)  NUMBER  OF  WORDS  PER  S/F 

(6)  NEEp_ FOR  DIGIT^  MUX 

JI=IDB( 1 ) +1 
IP1C (2)=J1 

I CHOSE ( 2 )=DA1At  C 1 » Jl”) 

IF(ITER.EQ.O)  NCHOSc (2)=1 
_WT = WT  ♦ NCHOSbt 2 ) »DATA6(23,J1 ) 
VOL-  VOL  '+  NChoSL ( 2) *DATAtT(24# J 1, ) 
PL=  PL  ♦ NCHaS£t2)*DATAB(16,Jl)> 
PLMlNts  PLMIN  + NCH0SE(2)*DATAB(  18, 


TT 

WDLMAX 
TLHWD 
N SURER 
SFL 
MUX 


Jl) 


06614660 

00014670 

00014680 

00014690 

00014700 

00014710 

00014720 

00014730 

0001*740 

00014750 

00014760 

00014770^ 

60014780 

00014790 

00014800 

00014816 

00014820 

00014630 

00014840' 

00014850 

00014660 

00014870' 

00014880 

00014890 

00014900 

00014910 

00014920 

00014930 

00014940 

00014950 

00014960 

00014970 

000 14-98 0_ 

00014990 

00015000 

Q001501G_ 

66615020  ' 

0U016030 

00015040 


ISN  0161  "RETWN  

1SN  0162  END 

*DPTl-GNS  IN  EFFECT*  ' ' NAME=  MAIN, 0P1  =0 l7 LINECNf=4l , S IZE=OQOG K , 

*QP  TIONS  m EFFECT* SOURCE.  *EbLUIC  *?fOLlST  * NO  Dt  C_ K»  LO  A D,NOH  A P , NO  ED  1 T , 1 D j_N  OXR  E F 

♦ STATISTICS*  SUUP.Ct  SlATPMENIS  =■  161  »PR.OGRAM  SIZE  = 2900 

"*S TAT rSTlCS*  Nq  "T>  1 AbNDS II C S~~GvNER ATE D “ 


000‘i506d 

00016060 


_OF .C^MyLAJJON  _ _ 101K6YTES  OF  CQRENOT  USED 

★STATISTICS*  wn  m Ar;wnmr<:  thk  cttd 


vO 
i . 

o • 


10.  . DETAILED  FLOW  CHARTS 


The  following,  are  detailed  flow  charts  of  th< 


entire  model, 
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■DECK  NASA 

c this  is  the  haim  driver 

C IT  SEQUENCES- all  SEGMENTS  OF  COOINO.HANOtlS  I/O. SETS 

C CONFIGURATIONS 


COHHON/USERt/DPHl .FE.TSHALL .XNU.PQOTO. T AUX ,T Aur . f AUZ . T . 
PHIRX.PHIRY .PHlRZ.PDOf X.POOTY.PDOTZ.XN.YN./N.POOTRX .POO  TRY . 
PDOTRZ .OHEGS .QHEGR .P J.XNN.K .HANV .IPANAM .EPt .AX.AT.AZ. 

Efl. EANT. ALPHA. TL.f ACCEL. KWNN.TMOLO. FOOT AY. POOT ST .PhIFOY.ISAT 


COMMON  /USER2/TTHST  .CLIFE 

COHHON  /USEQ3/STRHX.SCSFL.TPBFL.QPSWS .ARRAYNI 1 1 .3  l.NHSf Q 


COHHON  /USER4/lOPrCttl-3)*MSSEP.tSEQ.LSOLS.LUS8.FiEQl2  I. APOGEE  . 
NET  .NADIR  .FREQR.COHAAT. BN IflTHI  2 ) 


COMMON  /USERS/ 1 VOLT .OPT CMP 


COMMON  /USERS/EQPF  .M012SH.EQRI  XL  .EQN!  YL  .EO"Ul  .EQB2XL  .EQB2U  . 
EON2ZL. I SBOFG.NUHEEQ.EE OUT! 9)»EEQVL(9).EHtVCQ*EH12CG.CH2rCG* 
EH2ZCG.CGEEXI 9).EEL0C( 9T.XC05AI .XC0SA3 


COHHON  /USER7/ISAT0R.0RBINC 
COHHON  /USER9/SX0HE I 7.3) 
COHHON  /USER9/CA.CE 


COHHON  /BTNN/NT. VOL. DT.O.DX.OY. QZ.KJ.YJ.ZJ.RJ.FF.fi .PL. PLAIN. 
LHfiDO. AREA. SATLG. NATE .NC . AC8HP.MARNNT , TMCAHT .CONVH T . fNXNT .PRSSTR. 

sattmt.tprih.ibtloc .rroa .radab.rat .htrpwr.htrprq. 

HPT.HTPIPE.VCHP.HTPT ,FC  « XN ZERO. C OAR T .ACSSN.tl THAT t 2 ) » 

eqblg.sabolo.satht 


COHHON  /OBCOH/IOBI 30  ) .OATABI SS.9Q) 

COHHON  /USER! /EQHIWT  .EQA2NT .OIAAAX.ALT 

COHHON  /USERR/XE0PT.SYSL8.RF[XED.SLBHX.ISPT.SPEC(6).SPEC1 .ISUB 


COHHON  /CHOSE/ (CHOSE  I 60 ) .NCHOSE ( 60  ) .COST  I 5 .60 ) .RELI 6 .60 ) • ThHI 4 .60 ) 
• OP  I A) 1 1 .60 ) >SK0l 7.60 ) 


COHHON  /USERC/NFY.NQV.XHER.XHEU.FEEPCT .IHETYP 


COHHON  /PRTCOH/ACCRCY  *C (STAR. IRCL .HHOOLD.TRUNC.I TRUNC.OE.TE • 
TOOLR.QCR.SEIR.PHR.PE.PU.TOOLU.QCP.SElP.PHP.SATR. SAT  I NY. HER. 
heiny.payr.payinv.prvqul.gse.xltot.ctot.feer.feeinv.oote.xyest, 

QPS.SKTAU) S i.ROLOl 60 ) .TT T . AN . TS .8S .AH . TF ,BF . TC . TA . TB . TOTOPS 


DIMENSION  NC0NFI6).NEQUIPTS).IERRI7).IPICl(3).IPIC21 91.IPIC3I  2). 

IPIC4I  9).IPICS(  S).ICHOSH9).ICHOS2(  14  ) .ICH0S3I  2 ) . I CH0S4I  II). 

I CHOSSI 5 ) .NCHOSt 191.NCH0S2I 1 4 ) .NCH0S3I 2 ) . NCH0S4I tl ).NCH0S5(5J 


2 

NAMELIST  /H0DE/HICR0.ISTRT1 .IENOI . I STRT 2 , IEN02. I STRT 3 . I END3 . 
ISTRT4.IEN04.ISTRTS. (ENDS. ISTRT6.IEN06.ISTRTR.IE NOR 


CONT.  ON  PC 
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i WQB 


002 


^PIGINAlj  PAr’F'  tc! 


CONT.  OH  PG 


PG  2 OF  IS 


10-3 


9 ITftrt.2 


> U 


<T  oo  t c 


CONT . ON  PC 


5 


Cftu  *1 MOOII ICNOOI > 


CONT . ON  PC 


PC  6 OF IS. 


10-7 


1 


10-9 


10-11 


10-13 


f uCHQSM  I > ) JwCHQSt  1 {>11  | 


13 


6 & , 


Ffii 

^CONMNUt  1 
Rau  V»ucttNC0Nf  i~l 

Rat  i immi  ii«»t  ?>,itcany  il 


("nCmOSI » MOUNT  J sC  i 

y _ 

R*u  cBSfsmconr.iiEflutiTI 

r..::. 

£ 

rc»i  rs«C  or  «aui».itC0l.f)  1 

I 01 

* 

|Y»c«»  =»««>*  i 1 

T ' 

fcatt.  mnn  ift.NCQuia.NBccta.NCONf  7R 

fflfctifcf  B2  -i====> 


f GO  to  1 1 


• HfHfHfH  §T 

.3  »3  .3  .3  77~*  ■ 


CONTINUE 


CONI . ON  f»G 


IS 


PG  lPf 


10-15 


1 


I subroutine  mmuHcowf  .itoi  i 


C2!!?SS  'H^^^Pfyi'FE'fSHflU.KHU.^ODTO.raui.TBUr. 


onnrai  Mrne  * •ruoi  I .rum  i . IN  . TW  . /*  ,PCO f ■*  . PDO  I * » > 

ta°I2£»02F25j0?F0?zU:k*,*,,,“,MN¥,IMr,,,<.£ Bl  .fli.Rr.aj. 

Eft.EWNT  .BiPHB.H.TBCCSL.lHtRR.TwOLD.PDQTav . root  st.  Rmmir.  teat 


COBHOM  /USE*!/  EQHIHT  »E0H?HT  .OlflMBX  .Ri  r 


c?22.°2  n?2rS??ift££!cI;ciST?t,l*EL*,u,oaLo*T,,u»ic.t»»uiic.oi.Tc, 

•SESiSIiSjSS*:;!  *fU*  T00tU.QCP.8E  tB  .MB  .SBti.SBT  |K»  .HER  . 

2tiN)!i?5¥R,!*ftr  ib^.bbvoul  .gse  .ii  tot  .ct  or  .FEER.f  ec  mv  ,oote  ,i»i st  . 

_Q.BS.SKT  BUt  6 3 .BOLQt  601.TTT  .BN.TS.tS.PH.Tf  »tf  ,fC  .tB.TR.TOTOPS 


CP2"0«  /BTHN/ar.VOL .OT .O.DX.Or.DZ.XJ.rj.?j.Rj,Ff , T | ,f l .PtRlfc. 
SBTTufflrPB?5ftf!irrftrT|an£’2£2S£,25?,IMT»rMC,,*‘r,CO,,¥*<t  .ftKMT.BBSSTt. 

S5iTiflA;£5,,,*IBTLOC  *<**»oft  .imowB  .»af  .htrpnr.htrprb. 

jskoil^ssfjr' 


BCCRCrsAHINl  I PHIRI.PhIRT .PhJRJ  ) 
EOHMTcEQHl UT  »EQR2UT 
SRTar:36.9»E0Mr««.S7? 

EQBVOL  = . 1 aSRTUT 

TPRIRiT 

•UNC0NFI6) 


aiMiinnigiTM 


EOBtG-1 EOBXOla  3456.  )•». 333 


EG80IR;£QBLG 
EQBSIQi  .707«E0B0IB 


CONT.  OK  PG  3 

eg-2.0F I 
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rr 


f block  on r n ! 


sers  All  DCFAUl t vALUtS  1 




c°"*°2  ^flS^o^i^E-TSHflu.xHU.POoro.Tflui.raur.rBu/.i. 

pnnr0  7 •£ 00 T * -POOT r .POO T 2 . K « . Vt*  • 2« .#OOT*K.^OOF«r. 

£2°rrS2;°SF25;!0?EC?:PJ,m,K*MNV*IPfl™**'*pi 

EA.EANT  .ALPHA, TL .T ACCEL .XNNN.  THOlO.PQO  f AV .ROOT  ST  »PN If  Qy , 1 50 f 

' ■ 


common  /us€R2/rrHsr.uiFE  : 1 

COMMON  /USER3/BTRMX  .SCSFL .TPRFL  .QPSMS .ARRAYNl  )|  .?  ) .NBSE  0 I 


! COMMON  /USERS/ 1 VOL T .OPTEMP 




C25225  /y5IS6/EQPF  •«8*  22H  *CO«l  XL  .EQH!  rj.  .EOHI  .CQWZKt  .£0M?u7 


COMMON  /USER7/ISAT0R. ORBING 
COMMON  /USERB/SKQMEf 7.3) 


COMMON  /USERI /EQM1WT  «EQM2NT  ,01 AMAX.AL I 

222222  ^Se«5/REOPT.SYSLB.RFlX£O.SLiMK.ISPr.SPECl6).SP£CI .ISU« 
COMMON  /USERC/NFY  .NOY . XMER .XMEU .FEEPCT . IME t YP 


__  ..  -j_ 


f COMMON  /USER9/CRrCE~| 

j£~ 


oniTo?/lRX4eHiRy,P^,P2*SDIJT**PDOr,r*PDtir7,,!,(*'f,<,ZN*PDOI«**POOTRr, 

«uui KZ/31 * /5  » 5 > I • >012/ 

gg?S  gg^i;°g^g;^o^?:^:"gg;-",,ITa>‘/l-5709-6°--^--?1 •' 


DftTR  EA.EANT  .ALPHA  ,TL  .TflCCEL .XNNN.THOLD  .POOTAY .POOT ST .PhIFOY 
A.  1 . . 1 . 1 2 . . I . .20 . .4  . . 1 00000  ■ . .01  . . 0667 .40  ./ 


PAIR  CLIFE/50000./ 


OATA  0TRMX.  SCSFL .TPRFL .OPSMS TaRRAYN .NMSE 0/ t 024000 .. 36«0 . . 


v 

rOATA  I VOL  T .QPTEMP/D.15./  [ 

*1E 


°Si?nJ2/oCS,i"§sr;LfGklr,kUSB,,:RE0,nP0GE£*NEr*,)flDJR*FR£0R«C0HRAi. 

BNIOTH/O.O.O.Q.l  ,0,2 «22S0.. 500.. 0.0. 1800. .1  OOP.. 2»-l  .EiO/ 

- — ^ 


CONT.  ON  PG 


ec...  i of 


•ti 


10-24 


i 


Data  i o« .mi?/*. com u ,eq*i u .eqki 21 .eqmkl  .EQ*t2¥L/2 . . t . 
6«40./ 


£0;*{t.lSiOfO.NUKE€0.££OHf  .E£0»L.tWirCO.£»ltZCO.£H2¥CC 
/40.,2»0.2t»Q./ 


S2>2  f22?£2,£2ff£:£?t2£*ICOSfll*1,COSfl3  /o. .9.2. ,9.3. .2.1 ./ 

OATA  ISATOR.OIItNC/l .21.6/ 

ORTH  S«0R£/2t*O./ 

OAta  CA.CE / t 0 . «S . / 

QATA  tQWmrtC0W2MT.PlAHa».AtT/2»43S..l2O..S00./ 


roar¥V£0||f  .SrSlA.if  r*£O.Sl»A*.l$PT.SPEC.SPECl  .t~SUB/!  .0. . I. 
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UNIFIED  L IN* - COMMON  ANT  . OOMNL INK •/ »5X .27HELEC  TRICAL  POUEA  (NCONF 
(S  )1.2*X. SONNCONF* 4):&  IS  UNIFIED  L INK -SEPAAATC  ANT  » DOWNLINK./. 7 
1 .44MNC0NF I S J : I IS  SHUNT  REGULATION  • PAOOLE  HTO. .SX.2SH VEHICLE  St 
2 1 NO  lNC0Nf(S))./.7«.42HNC0NFlS)--2  IS  SHUNT  AEOULATION  - 8007  HTO . 


•9I.22HNC0NFI6 1,1  IS  CYl2N0ER,/.?X,44HNC0NFI 51-3  IS  SHNT  . DISCH.R 
EO  - PAOOLE  HTO - .7X . 1 7HNC0NF (61:2  IS  BOX ./ .7X .42MNC0NF ( S 1 :4  IS  SHN 
T . OISCH.AEO  - BOOT  HTO . .9X .20HNC0NF < 6 }:3  IS  SPHERE) 

_■ ^ 

rMINT;90tI  1 


3011,,,? ; 

FORMAT  l ?X ,4 4HNC0NF ! S ) -5  IS  SERIES  LOAO  REO.  - PROOLE  MT0..SX.11HR 
ELIABILITY./.7X.42MNC0NFI  S):6  IS  SERIES  LOAD  REO.  - BODY  MT0..9X.4 
ShAEOUNOANCy  CONFIOURATION  r 0 IS  SINGLE  STRING./ .58* .43HRE0UNDANC 

r CONFIGURATION  = t IS  OUAL  STRING) 

— 


$ 

CONT.  ON  PG  3 


PG  2QF 12. 


10-41 


FORMAT  HIM  MESSAGE S i t ERR  > • / .SX.2&MSTARI L (TAT {ON  AND  CONTAOl  ,!( 
X .20HAUX I L I ART  PRQPUl SION./ .71 .29HIERA  x 0 REAMS  NO  MESSAGES*!? 
X.27HIERA  s 0 REAMS  NO  RESSAOES ./ .7X .49HIERR  x t RIANS  RAX  An 
0WA8LE  SYS . ERROR  UNSAT  . ,!X  .SOME  ERR  * I MEANS  CrCU  LIFE  OF  AT  T I f 
UDE  AND  CONTROL. /.7X.42HIEAA  x IX  MEANS  RAX  RATE  ERROR  TOO  SMALL 
.2SX *22H THRUSTERS  IS  TOO  SHORT ./ ,?X .4?H|ERR  x 1X1  MEANS  1-AHS  MM 
EELS  ACCEPTABLE. 9X.S2HIERR  x 10  MEANS  CTtLE  LIFE  OF  TRANSLATIONAL 
THRUSTER, /.7X.42HIERR  : tXXX  MEANS  DAL  GIN*. CMOS  ACCEPT AlLf .?SK  . I ? 


HIS  TOO  SHORT. /.SX.35M0ATA  PROCESSING  AND  INSTRUMENTATION. III. 4SH| 
ERR  x U MERNS  CTClE  LIVES  OF  BOTH  THRUSTERS  RRC ./ .71 . SOHtERR  * 

0 MEANS  NO  MESSAGES. 37K.9HT00  SHORT ,/ ,7X .11HIEAR  r l HERNS  M 
UX  REQUIRED. IBX. 7HTHERMAL./.7X.41HIERR  * 10  UORO  LENGTH  ORCRTER 

THAN  2SS.I0X.  49HIERR  s [KXXXXXKKX  MEANS  BATT  RAO  AAI A IS  SUPPLlC 
D./.7X.34HIERR  = 100  BIT  RATE  IS  TOO  LARGE.lSX.tRlN  RADAR./. 71. 3 

6HIERR  r 1000  SPEC. CORO. SYNC. FtG  N£  O.ISK.  St  Hi  ERR  . X|XXXIXI(I 


PRINT  9013 


FORMAT  ( 7X  • 26HIERR  = 0 MEANS  NO  MESSAGES. 43X.1SHSUPPHED  IN  PCM./. 
7X.46HIERR  x t MEANS  BOOX  MOUNTED  SQL AM  ARRAY  LENGTH. SX  .SOHIERR  x 
XXX  t XXXXXX  MEANS  I SOTHERMAL I 7ER  IS  REQUIRED. /.1SX.2BHEICEE0S  EOUtP 
RENT  BAY  LENGTH. 14X.S1HIERR  = XXXX1XXXXX  MEANS  OIOOE  HEAT  PIPE  IS 
REQUIRED. /.76X.12H1 2 REQUIRED ) ./ .SBX .St HIERR  = XXXXKIXKXI  MERNS  CO 
NV.  HEAT  PIPE  IS  REQUIRED./. SBX. 48HIERR  x XXXXXX1XXX  HERNS  OSR  RAO 
IRTOR  IS  REQUIRED./. S8X. 50HIERR  x XXXXXXX1XX  MEANS  CONY.  RADIATOR 
IS  REQUIRED,/. S8X. 4BHIERR  = XXXXXXXXU  MEANS  HEATER  POHER  IS  SUPPL 


IE0./.76X.9HIN  HTRPHR./.S8X.49HIERR  x XXXXXXXXXt  MEANS  RADIATOR  AR 
EA  IS  SUPPLIED. /.7GX.7HIN  RAOAt 


10-42 


FORMAT! SX.25HEOMPUTER  OPERATIONS  RATE  .E JJ  .4. Shi  IPS  1 I 


PUT  total  storage  capacity  print  here  later 


PRINT  8025a IERRI 3 ) 
PRINT  B070.NC0NFI 4) 


FORMAT  I 3X.I4HC0HHUNICAT10NS./.5X.24HC0NF IGURATJON  IDENTIFIER.  Sx.t 
1 1 


10-44 


10-46 


Mini'  atso.ua. rf  .•* 


f04HfltiSl.?&Hf.B«H£  NO..  twIC;9NE  S5.  ,Ht  * ,.SI',f4.0.2H.  .EU.4.6H  (1*0. 


.si.UM.ix  cjmj.r-1'.- , • >-•  v 


(Ctattt  I 6i;'!On€HO.C8»C*  :TmIC*N£  SS  EOBnABO.  *E  tt  .4.17*1  IN!)  .CENTER  . 
(1  M4i«N<  |N).AEt-  ;(tt  .'4.4NMtlM  *■  1 


jlMINt  'gt6S.4J.XJ. 2:) 


~ =U •=-=  S itM  y-  — - — - 

i ' 9?  ***  - 1 % “ ■ »tnr.4VMH  Mig-IN**2  l,,6*.6HI*r  .EM  .4.12H/1 10 

l<.i»Hu*?).tVg«f.twt/7-  v .i  t IMVHh  t iMNii?!  >’  •*■■■. 


MMHftTH».7HSflE£Tr./.SK.?5HBC0UNPflNCy  CONE  IGURAt  { ON  .12) 


P4lNtgl7S.HH00lD.B0L Ql l TRUNCT.  tRUNC" 


HI  SSI  ON  OUROT  ION. El  1 .4. SHI  HO)..  1 1HREL  IAS 1 LI  tv  , 
Li  1--4..28H.RE-L10B1L  t-T-Y.  TRUNCAT  ION  M HE  .El  l .-4-.4HCH0  H ■;  , - 


PRl NT  8180 


FORMAT  I 3X  .33HCOST  I OL  L AMOUNTS  ARE  IN  DOlt  A8S  >'./ .&«  .SnOO  T •{  .SO*  . 
21HINVESTHENTI  AEtURRINOll 


FORMAT  1 7X  •(SHOES  I ON  t NCI NEERINO. t 9l  .f I 3 . 1 .St . I 6*UN t » ENOt Nil  *IN0. 
19X.F13-1  ) 


FORMAT  I 7X.t9HTEST  ANO  E VAlUAT  ION.IIX  ,F  1 3 . 1 .St  .IShUNI  T PROOuttlOM. 
20X.FI3.tl 

• £ — 

I PRINT  §195. tOOt*. TOOLU  1 


FORMAT  I 7X.26HT001 ING  ANO  TEST  EQUIPMENT  • l lX.fll.I  .6*  .26*  T OOl  t NO  AN  1 
0 TEST  EQUIPMENT. 9X.Ft3. 11  I 

PRINT  8200. OCR. QCP  I 


r<i  *1 


FORMAT! ?X . ! SHQUAL I T Y CONTROt .22X .F 1 3 . 1 .SX , l SMQUAl I T V CONTROl .201. 
FI3.M 


PRINT  6205.SE IR.SEIP 


FORMAT  1 7X  .3SHST STEMS  ENGINEERING  ANO  INTEGRAT I 0N.2X ,f 1 3 . 1 .SX . 
35HSYSTEMS  ENGINEERING  ANO  INTEGRATI0N.Ft3.il 


CONT.  ON  PG  10 


10-48 


FORMBTt  7X.6HC.S.E..16X.F12.0) 


V 

CONT.  ON  PC  II 


10-49 


PRINT  8?90.SKTAU1  3) 


FORHRT 1 5X.26HSUBSTSTEH  DEVELOPMENT  TIME .19K tf S .1 .8MIHOKTHS )) 


CONT.  ON  PC  l 2 


10-50 


i 


[ PRINT  SIOO'.SKTBUI  2 i~1 


f>oawflnsg.?>HCO»fronfttr  ouftiincanox  TiH{.i7».f6.i.«HiH0»THS)) 


i print  esio.SBtAui  4 > | 

- . 

i 

* 

. _ ....  _ _ 8310  J 

t 

it 

i pat r oj?c 

1 •SRTAUI 6 1 | 

• 

jl8BBfltt6B.4SMSrSrfB  0£  V € L OPME  N f AND  FLIGHT  READINESS  TIME  ,F6.1.  1 
jgHf NORTHS  11  I 

[>anxir  B33q.5KTftum~l 


r IU8.-JS - 

J I QBMAT 1 %t .JSNStHEOUlE  OuQBflOU  I TO  LAUNCH ). 161 .F5 . 1 .INI  MONTHS ))  | 

— : : — 

I re  turn  j 

nsoi 


PG  12  FINflL 


10-51 


ooori 


I subroutine  "f  i l Tgei Mcouf  .rcoocT] 

riLtER  CHECKS  FOR  CQF1PAT  I01E  CORB iWlTWs"  dT'ToSnTuWf  IMS 
A WINUS  1 [S  RE  TURNED  EOS  UNACCEPTABLE  COR01WAT 1 ONS 
NCONF  IS  ARRAY  OF  CORF  I BURST IONS 
[CODE  IS  CODE  RETURNED 


! D I M€  HS I Q*i"  «COWf  1 6 )'  ] 

COfmOH  /USER  t /DPHI  »FE  • TSKAL  t eXHU .ROOT 0 . fftljiu TftuVT? ««}”."»  

.PHIfiX.PHlRY.PHlRZ ,POOTX.POOTY.POOt2.JtN.YS!.Z«.PDOTB«<,POOT(S», 
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COUPON  /USER7/ISAT0R.0RBINC 

COMMON  /USER! /EON t NT .E0N2HT ,01 APAI .*1 T 


COMMON  /CHOSE/ 1 CHOSE  I SO ) .NCHOSEl SO J .COST  I 6. SO  ».R£l r S.SO ) . 
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OETERPtNES  SUE  AND  PERFORMANCE  OF  THE  THERNAL  SUBSYSTEM  i 


A GLOSSARY  OF  VARIABLES  FOLLOMS  - 


CODE  IS  AS  FOLLOWS  - - 

U s USER  INPUT.  Dfl  = DATA  BASE.  INT  x INTERNAL 
0 = OUTPUT.  [ — INPUT  FROM  PAIN  OR  OTHER  S/S 


VAR.  NAPE 


UNITS  COEFAULT)  DESCRIPTION 


c 

c 

c 

MU 
■ * 

ALBOO 

INT 
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BTU/I  HR«F T ••2 J 

ALBEDO  •• 

L 

c 

c 

MM 

MM 

ALPHA 

INT 

0.30 

0.06 

1 DIMENSIONLESS  ) 
IOINENSIONLESS) 

CONY. RAO. CONST... 
OSR.  RAO. CONST  ... 

L 

c 

MU 

ALT 

U 

N.HI  . 

ALTITUDE  •• 

BV 

INT 

1.1 

CA 

INT 

0.5 
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I .5 

EMISS 

INT 

60 

60  BTU/I HR.F  T««2 ) 
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1 DIMENSIONLESS) 
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0 

0 

o {TAT 

o 
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lOIMENSIONLESS) 

OSR.  RAO. CONST .*• 

XMTR  EFFICIENCY  II 
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• 

0 

1 BTU/HR  ) 

for  At  heater  power  ll 

• • 

»TP I PE 

Hf  PI 
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MiaPHS 


ibiu/hR)  heat  oue  ro  h.p.  «b 
I BTU/HB )T0r«L  HEAT  PIPE  •« 
I BTu/HR  IBATT . HEATER  POWER  II 
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tSATOR 


1N0EX  •• 
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rrPE  OF  CONFIG.  II 

(DIMENSIONLESS)  EARTH  ORIENTED  ■> 

1 OIRENSI ONLESS ) SON  ORIENTED  o» 

1 01MENSI0NLES5 ) INERT [ALLY  OR! .** 


NCONFfM  I 
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NUMBER  BAIT  CEL aa 

S»C  MACRO  INOEXea 
YS  MACRO  INDEX** 
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